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ABSTRACT 



This research developed a prototype program to plan the distribution of 
communications equipment within an army organization, using artificial-intelligence 
search strategies. The system does two searches: it assembles the maximum 
number of sets of equipment from component equipment procurements, then plans 
how to assign these sets to organizational units. The program was done on a Sun 
workstation with a Quintus Prolog compiler. Due to classification requirements, 
fictitious but typical data was used to test the system. The system can find near- 
optimal ways to modernize the communications equipment of up to ten battalion- 
sized signal units, and has been tested tlyough the procurement of tliree generations 
of equipment. There were twenty sets of equipment to allocate to the ten units in the 
final test case. This program can also develop a new distribution plan if unexpected 
events require changes to the current plan. 
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THESIS DISCLAIMER 

The views expressed in this thesis are those of the author and do not reflect the 
official policy or position of the Depailinent of Defense or the U.S. Government. 

The reader is also warned that the programs contained in this research have not been 
tested in many cases. This research sought to develop a methodology to automate 
the decisions that result in the planning that has an impact on critical resources. 
Every effort was made to ensure correct and clear program development but the use 
of the programs without additional research and modification is at the risk of the 
user. 
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I. INTRODUCTION 



A. THE COMMUNICATIONS SYSTEM PLANNING PROBLEM 

Military organizations must satisfy many constraints. The most pressing is the 
budget. Unfortunately, budgets for military hardware are always in a state of flux. 
A hardware procurement planned and contracted for in one fiscal year can be cut 
drastically the next, requiring renegotiation with contractors, slowdown of production, 
and possibly higher cost per item; so planning and replanning of the allocation of 
current and future resources is necessary. This is often true witliin the U.S. Army 
Communications Community. 

It is generally impossible to fully modernize all military units at one time. 
Usually equipment procurements are staggered so that some units can be modernized 
while other units at lesser levels of modernization receive the equipment given up by 
the first group of units. Planning of communications-equipment allocation is 
complicated by the possibility that items distributed to a unit may or may not be 
technically compatible with already acquired equipment; such items are then useless 
to the unit. The goal of the distribution plan is to allocate necessary amounts of new 
equipment and redistribute older equipment in an intelligent way. Without a total 
equipment distribution plan in the past, many items of equipment were distributed on 
individual timetables and many units received only a subset of the equipment 
necessary for a set. 

B. SCOPE 

This thesis developed a prototype planning program that perfonns basic 
distribution and redistribution planning for a set of U.S. Army Signal Units, given a 
particular set of procurements of equipment. The prototype planning program handles 
up to ten units modernizing each unit a maximum of three times based on the 
equipment available and modernization level of the units. This plan was developed 
in a few days or less on a Sun workstation, which is considered a reasonable amount 
of time. 
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C. OVERVIEW 

Chapter II outlines the different methods of planning, gives an introduction to the 
search being used, and discusses previous research in this area. Chapter III describes 
the planning problem with communications equipment and motivates the need for an 
automated system. Chapter IV describes the two phases to the search to allocate 
equipment to Anny Communications Units. Chapter V describes the technical 
requirements of the system and the performance of the programs developed in this 
application. Chapter VI gives conclusions and recommendations for further work in 
this area. The detailed results from each of the runs are contained in Appendix C. 
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II. PLANNING AND SEARCH TECHNIQUES 



A. SEARCH 

Search techniques in artificial intelligence can be used for allocation problems as 
an alternative to computing all possible methods of allocation and then determining 
which are optimal. A detailed description of search techniques including the A* 
search and search engines are contained in Artificial Intelligence Through Prolog by 
Rowe [Ref 1]. The search goes through intermediate steps involving small changes 
to the working plan that make it gradually more comprehensive, when seaiching for a 
solution to a problem. Usually there are many possible intennediate steps ui the 
search; these are called successors or partial solutions. Different search algorithms 
may take different paths to a solution, and generate different intennediate steps. The 
solution developed by a search may not be optimal, but usually will be valid and 
reasonable based on the rules that the search has for progressing toward its solution. 
These rules are called state-transition or successor rules. A good search technique 
only develops the most promising alternatives (best partial solutions) during the 
search. These partial solutions must be evaluated and ranked. The criteria for 
ranking depend on the type of search and will be explained later. 

A solution for the problem of communications-equipment distribution is a plan 
that allocates all of the available equipment to units based on their needs and 
priorities. This can be found by a search. The starthig state of the problem is a 
description of the units, the equipment, and the expected procurements. Tire final 
plan generated by the program will show when units will be allocated the procured 
equipment as well as how to reallocate equipment given up by units modernized. In 
communications equipment distribution, the plan with the most units modernized in 
the shortest amount of time using the equipment already planned for procurement has 
the least overall cost and best ranking. An additional cost could be based on the 
amount of idle equipment, equipment procured before actual use by a unit. 

Three important search techniques are A* search, branch-and-bound, and 
"nopathsearch". The A* search technique develops a plan by making transitions 
based on the rules that define the finished plan. The new states developed are then 
added to a storage area called the agenda. Each state in the agenda is given a 
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numeric rating. This rating is based on two considerations; the cost of this state and 
a guess of how much additional cost will be necessary to reach a goal from the state. 
These two factors are added and used to compare the state to other states. The 
program then chooses the lowest-sum state to find successors of next. This is 
repeated until either a valid goal is reached or all of the states are gone from the 
agenda. States are removed from the agenda when aU their possible successor states 
are found. This allows concurrent processing of states. 

The branch-and-bound search technique is sunilar to the A* search. The 
difference is that each state is evaluated by its cost without adding the additional cost 
that would be incurred to reach a goal state. We use branch-and-bound in Phase I of 
our program. 

The search used in the Phase II of our program is called "nopathsearch". It is an 
A* search that does not store information about what steps it took to get to a state. 
For this search to be used properly, the cost of the state must be able to be evaluated 
without need for information about how the search got there, as the allocation 
problem examined in this research. Hutson utilized the "nopathsearch" teclinique in a 
thesis that developed training plans for tactical air wing squadrons [Ref 2J. The 
problem was to schedule training and required inspections during times that 
squadrons were not deployed or otherwise committed. The inputs to the scheduler 
application were the required training and deployment timeframes. The scheduler 
developed a plan for multiple squadrons given the requirements and constraints of 
each. 

B. OTHER PLANNING METHODS 

One of the earliest applications of planning was the R1 system developed by 
Digital Equipment Corporation (DEC) for planning the configuration of Digital 
Computer Equipment for its customers [Ref 3]. Digital Equipment Corporation 
manufactures computers that can be configured in many ways. It was a very 
complex job to configure their computer systems because of all the auxiliary parts 
needed by different components and configurations of the systems. The system used 
rales that stated relationships between the many different components produced by 
DEC, and perfomied forward chaining. This ad hoc approach works well for similar 
problems which are rich in constraints. 
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A significant amount of work in scheduling focused on manufacturing systems 
[Ref 4], Production scheduling must work within resource constraints, capacity 
constraints, and production-time requirements. Savings realized in these environments 
are easily measured. But these techniques require highly restricted problems. 

A different approach to scheduling has been tried by Goehring who developed 
plans for training using stochastic methods that pseudo-randomly made changes to a 
suboptimal but reasonable plan [Ref 5]. Stochastic approaches depend on the planner 
to evaluate a comparative cost to the utility of solution. We did not use this 
approach since there seems no easy way to get an initial plan for our problem. This 
approach also generates unnecessary suboptimal possibilities. 

Relaxation is a planning technique where all of the possible alternatives for parts 
of the problem are enumerated in advance and the analysis progressively eliminates 
them. This technique was considered, but the number of alternatives would be very 
large for our problem. Each distribution to a unit has a strong possibility of 
affecting other units. Relaxation is useful when one or more sets of possibilities can 
be reduced to a single or small set features not characteristic of our problem. 
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III. DESCRIPTION OF THE APPLICATION 



A. PRESENT SITUATION 

The US Army Signal Center recently developed a strategy to address the problem 
of communications-equipment distribution. The Battlefield Communications Review 
II (BCR II) task force was fonned to control all communications equipment 
procurement, distribution, redistribution, and disposal. Tlie main problem was that 
many different items of equipment were being procured under separate contracts and 
timeframes. If an item of equipment was received and could not be used by a unit, 
the item was usually left idle until a complete set of compatible equipment was 
received. Furthennore, the unit could not give up the older equipment until they had 
a complete set of new equipment. Any problem that delays even a single piece of 
equipment requires a change in the distribution plan that affects many units. 

The BCR II distribution plan is complicated by many factors. Budgetary factors 
limit the amount of equipment that can be purchased, as well as the need for a unit 
to keep equipment long enough to fuUy use it; these will not be addressed in this 
research since they cannot be easily modified due to contractual obligations. Units 
stationed in different geographic areas have different levels of military risk and value, 
summarized by a priorities among units. Units must be modernized a single level at 
a time by doctrine and by the ability of the personnel (in many cases persoiuiel are 
trained on the next generation of equipment beyond what is present in the units). In 
the examples used in this research, three levels of modernization were chosen based 
on the three in the BCR II distribution plan. Once a unit gets new equipment, the 
old equipment can be redistributed or disposed of. A decision of what unit will 
receive it must be made again for the old equipment. 

The BCR El distribution plan was developed during a conference with up to 
twenty people working with a large set of blackboards, manually balancing 
requirements with the planned procurement and unit priorities. When there is a later 
problem with some equipment, this analytical method is again used to a lesser extent 
and the plan is revised. This method is time-intensive and manpower- intensive, 
though computers assist in the tracking the equipment. The premise of this research is 
that computers can assist much more by proposing necessary changes to the plan. 
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B. COMMUNICATIONS EQUIPMENT OVERVIEW 

Communications Equipment has four basic components: switching equipment, 
transmission equipment, tenninal equipment, and networking equipment. Switcliing 
equipment performs local telephone operations supporting local communications users. 
Terminal equipment is used and managed locally to transmit information through the 
network, and includes message centers and FAX equipment. Transmission equipment 
transmits raw communications data from one communications site to another. 
Networking equipment is the interface between the switching equipment and the 
transmission equipment, connectuig channels from transmission units to various local 
switches. Each of these components of a communications network must be 
compatible. Compatibility depends on technical characteristics of the equipment 
including capacity, size, channel numbers, and communication protocols. 

The major problem that the BCR II addressed was that these four types of 
communications equipment types cannot usually be modernized separately. For 
example, a new type of transmission equipment cannot always work with an older 
type of networking equipment. The current BCR II planners constantly have 
shortages of equipment needed to modernize units. Another problem that must be 
addressed is compatibility between units. Tliis can be partially resolved in this 
planning program with the priorities of the units by ensuring that units that are part 
of the same network have the same priority for equipment allocation. 

C. EXAMPLES 

Appendix A shows the components and amounts needed in different unit sets of 
equipment and how a unit may receive single pieces of equipment according to 
present procurement distribution practices. 
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IV. DESCRIPTION OF THE PROGRAM 



A. PHASE ONE: CONSTRUCTION OF EQUIPMENT SETS 

The first phase of our search program develops the sets of equipment that can be 
made from individual equipment procurements already planned and contracted. The 
search state has two parts: the individual pieces of equipment that need to be put in 
sets and the sets of equipment generated to up to the current point. The search 
continues until no further sets can be made. Two approaches were taken to Phase I. 

The first approach generated all possible partitions of the procured equipment 
into sets such that no further sets could be created. The program output the partition 
scheme with the least number of pieces of equipment not in a set. The results are 
shown in Chapter V. This method required a significant amount of recursion, 
memory storage, and CPU time. As the number of pieces of equipment procured in 
the program was increased, these factors increased exponentially. 

The second approach which we now employ uses a branch-and-bound search 
technique similar to the second phase described later. This search technique 
generates only a few possible solutions for a list of equipment, one at a time. It 
takes a state on the agenda with the lowest cost value and computes its successors; 
this state is called the most promising intennediate state. The successors differ from 
the original state by the inclusion of one additional set of equipment that can be 
made from unassigned procurements in the state. The procurement totals are then 
correspondingly decremented. Items of equipment are assigned to sets until no 
further sets can be made. The cost function counts the equipment that is not in sets. 
Figure 1 shows the Prolog state-succession rule for this phase. 

B. PHASE TWO: ALLOCATION OF EQUIPMENT SETS TO UNITS 

The distribution plan is generated by a search which looks for an allocation of an 
equipment set to a unit of appropriate type and priority, giving the older set of 
equipment to another unit or disposing of it. The starting state contains a list of 
units, their types, and what equipment they currently have. States also hold a list of 
sets of equipment not yet allocated and when the sets will be available. A state 
transition means a set of equipment has been allocated to a unit. 
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successor([List_of_equipment,Setsofar], 

[Out_list_of_equipment,Newsetsofar]):- 

make_up_one_set(List_of_equipment, 

Out_list_of_equipment, Set, Year), 
appendd(procuremeiit(Year,Set,l),Setsofar,Newsetsofar). 

Tliis successor rule for the unit set development phase takes components of the 
correct type and number from the procurement to make up one set. Tlie set is then 
appended to the list of sets. 



Figure 1 

Successor Rule For Unit Set Development 

Appendix B shows the state-succession rule for this phase. It shows how the 
unit information, units equipment status, and the projected procurements are used to 
make an equipment-allocation decision in the plan. To generate the successor states 
as fast as possible, predicates in the successor rule are ordered so that possible 
choices required are few after the first predicates succeed. So the successor rule first 
determines what type of set is next for the unit, and then if that set is available. It 
then detennines if the equipment should be given to the unit based on the other 
equipment in other units, tlie priority of the unit, and the modernization level of the 
equipment. 

Figure 2 shows the cost and evaluation function used by "nopathsearch" for this 
phase. The cost function sums up the times when each of the units were given their 
last set of equipment. Since the state-successor rule ensures that the equipment set is 
given to units of highest priority among those that can accept it, the state with the 
lowest total cost has used the equipment in the most efficient way among all valid 
possibilities. Tlie evaluation function counts the equipment left to distribute. 

We also explored a refinement of this phase that added an extra number to the 
cost. This number measured the time that equipment was available and not assigned 
to a unit. This measures how well the budget is used in relation to the actual needs 
of the units, a "delay factor" measurement. 
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cost( List , Amount) ; - 

bagof(U,unitstatus_look_year(List,U),Givelist), 
acldit(Givelist, Total), niember(delay(Time), List), 
dfactor( Weight), Amount is Total+Time*Weight. 

The cost of a partial allocation is the sum of the last years that the equipment 
was given to a each unit. The best distribution plan gives equipment to the units at 
the earliest opportunity. The function "unitstatus_look_year" returns the last year that 
a unit was given equipment. The code above includes the delay factor that considered 
when equipment was available for tlie unit but no unit was able to receive it. 



eval(List,Amount);- 

bagof(U,priorities(List,U),Prioritylist), 
mininium(Prioritylist, Amount). 

The evaluation amount for a state is based on the priority of the equipment left 
to distribute to a unit. This predicate collects aU of the modernization levels of 
equipment left to allocate and then returns the minimum. This underestimates the 
amount of additional time necessary until all of the equipment will be allocated. 

Figure 2 

Cost And Evaluation Function From Phase II 
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V. RESULTS 



A. SYSTEM REQUIREMENTS 

The Prolog program was developed with a C-PROLOG interpreter. To speed it 
up, the program was modified to be compiled with Quintus Prolog. Quintus requires 
certain declarations of predicates in a program to compile it. The Prolog software 
and the program required 2.5 megabytes. The program alone required 1.5 megabytes. 
All Prolog source code will mn on a C-PROLOG interpreter once these declarations 
are removed. 

B. TEST RUNS OF THE PROGRAMS 

Table 1 shows some statistics on Phase I (developing unit sets from separate 
pieces of equipment). This phase developed unit sets within a small time compared 
to the search in Phase II. 

Phase II was tested with various kinds of units and equipment. Procured 
equipment was chosen for each run so it would not modernize all units fully since 
this is usually the case with real budgeted assets. And also like real units, some 
units were at the intennediate level of modernization to start, but none were at the 
most modem level. 

Table 2 summarizes the time used to produce plans for specific numbers of units, 
and it compares compiled and interpreted code with different delay factors. Tie time 
to develop a plan increased exponentially as the number of units and procurements 
increased. 
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TABLE 1 

STATISTICS ON PHASE I OF THE PROGRAM 



Number of Equipment 


All-Partitons 


Search 


Procurement 


Method 


Method 


Transactions 


CPU Time 


CPU Time 




(seconds) 


(seconds) 


6 


5.116 


7.050 


7 


42.433 


42.733 


15 


out of memory 


57.166 


22 


out of memory 


387.773 



TABLE 2 

STATISTICS ON PHASE 2 OF THE PROGRAM 



CPU Time in Seconds 



Number of Units 


Interpreted 


Compiled Compiled Code 


Compiled Code 




Code 


Code 


Delay Factor=l 


Delay Factoi^^ 


2 


52 


57 


53 


53 


3 


172 


116 


85 


128 


4 


1586 


1152 


1053 


867 


5 


3434 


2473 


2340 


2140 


6 


40072 


30422 


24126 


20775 


7 


26793 


20607 


18086 


16678 


8 


96625 


77488 


73615 


9654 


9 


133018 


114670 


107911 


98552 


10 


104830 


83748 


80199 


78809 
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TABLE 3 



COMPARISON OF CPU TIMES USING DIFFERENT DELAY FACTORS 



Delay Factor 



Total CPU Time for Program (Seconds) 



2 

5 

10 



2340.733 

2140.566 

2125.316 

2173.850 



(for distributing equipment to five units) 



Appendix C summarizes each of the test runs. The input was a list of units, 
their current equipment, and a list of procured equipment. The procured equipment 
was defined by a type, amount, and year procured. 

Table 3 summarizes the time required with different delay weights, with five 
units and a limited amount of equipment. Tlie inclusion of the delay factor in the 
cost function allowed only a savings of ten to twenty percent in the execution time 
from the original run of the program. The distribution plan found did not change. 

Another analysis was performed in this thesis was to find bottlenecks in the 
state calculation in Phase II. A special version of the program was developed to 
trace this and is included in the Appendix C. Figure 3 shows a transition frequency 
diagram for the major parts of the successor rule. Table 4 shows the distribution of 
time it took to compute a successor. 
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Explanation of Each Step in the Transition Diagram 



Step 1: Retrieve a Unit from the current state. 

Step 2: Check that the amount of equipment in the procurement is enough 
to meet the needs of the Unit. 

Step 3: Check if the proposed allocation violates the prioritization of the 
units. 

Step 4: Give the set of equipment that the unit previously held to PDO or 
Procurement. 

The upper numbers represent the frequency that a test succeeded; the lower numbers 
represent the frequency a test failed and backtracking was necessary. 



Figure 3 

State Movement Within The Successor Rule 
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TABLE 4 



SUCCESSOR-COMPUTATION-TIME DISTRIBUTION 



CPU Time To Compute Successor Frequency 
(1/100 of a second) 

300 - 500 18 

501 - 1000 87 

1001 - 1500 38 

1501 - 2000 13 

2001 - 2500 44 

2501 - 3000 75 

3001 - 3500 53 

3501 - 4000 30 

4001 - 4500 38 

4501 - 5000 24 

5001 - 5500 31 

5501 - 6000 14 

6001 - 6500 8 

6501 - 7000 11 

7001 - 7500 6 

7501 - 8000 7 

8001 - 8500 3 

8501 - 9000 0 

9001 - 9500 2 

9501 -10000 1 



This table is based on generating a plan for five units and a delay factor of two. The 
average time to compute successors was 2.981 seconds. The above numbers 
represent raw numbers of time a successor was generated within the program run. 
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VI. CONCLUSIONS AND RECOMMENDATIONS 



A. STRENGTHS AND WEAKNESSES 

The Prolog programming language was a good choice for this research since it is 
widely available and does not constrain the programmer to a specific way of 
programming. The perfonnance of the system improved with the compiler. The 
backtracking of the search allowed the system to consider a significant number of 
good alternatives and produce plans which were valid and reasonable. The 
components file in Appendix D showing the relationships of the equipment and 
modernization levels can be adapted to other types of problems. 

Speed of the program does not seem a significant problem, anticipating 
forthcoming computer software and hardware improvements. The plans developed by 
the program are reasonable, timely, and correct while not guaranteed to be fully 
optimized. 

A main weakness of this program is its criteria for choosing the state to generate 
a successor for, a function of the cost and successor functions. The width of the 
agenda could not be narrowed any further in this program since the system needed to 
be able to consider many options in order to get a good plan. But there is a critical 
tradeoff between the number of options considered and the speed of tlie final plan. 

This prototype does not consider the distribution of equipment where the number 
of sets of equipment held in a unit is changed. This decision was made based on the 
short-tenn need to divide the system into separate phases. Otherwise, the system 
would constantly have to work with changing amounts of unit sets and compute unit 
sets prior to each allocation. 

B. RECOMMENDATIONS 

This system could be used as a reactionary or analytical tool for a planning 
agency. If the current plan needs to be changed due to equipment availability or unit 
realignment, the program could be remn and a new plan could be put in place in 
only a few hours or days. A strength of computer-generated plans is that all 
decisions are based on well-documented information formalized in a program. No 
unknown biases or undocumented decisions can be introduced into the plan. 
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A enhanced prototype could be developed to work with the classified actual data. 
An additional feature that is necessary to better model the real world would be to 
require that sets of units that operate together use the same equipment. The planning 
of the amounts of equipment to procure was not addressed in this thesis. All these 
would be worthwhile areas of future study. 
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APPENDIX A; EQUIPMENT-SET EXAMPLES 



The following examples are sets of equipment that actual units might have. Each 
example shows the items in the particular set, and the amount and type of equipment 
when appropriate. Tliese sets are the standard ones. 



11035J5 Division Signal Battalion with Atacs/latacs equipment 



ITEM 


AMOUNT 


TYPE OF EQUIPMENT 


AN/GRC-142 


14 




AN/GSQ-80 


4 




AN/MSC-31 


6 




ANATCC-65 


4 




ANmiC-113 


12 


Transmission 


AN/TRC-145 


42 


Transmission 


AN/TSC-58 


2 




AN/TSC-76 


7 


Networking 


AN/TSC-85 


9 


Transmission 


ANATSC-93 


3 


Transmission 


AN7TTC-41 


9 


Switching 



11045L0 Light Infantry Division Signal Battalion (specialized Equipment) 



TYPE OF EQUIPMENT 



ITEM 

SB-3614 

AN/GRC-142 

ANyTTC-41 

AN/TGC-30 

ANATlC-145 

ANATRC-113 

AN/TSC-76 



AMOUNT 

1 

14 

6 

2 

31 

6 

4 



Switching 

Switching 

Transmission 

Transmission 

Networking 
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11065L0 Heavy Division Signal Battalion 
(Mobile Subscriber Equipment) 



ITEM 


AMOUNT 


TYPE OF EQUIPMENT 


AN/MSC-31 


3 




AN/TRC-I90 


38 


TRANSMISSION 


AN7TRC-191 


9 


TRANSMISSION 


AN/TTC-46 


1 




ANATC-48 


16 




AN/rrc-47 


4 





11425H7 Corps Level Signal Battalion (Atacs) 

ITEM AMOUNT TYPE OF EQUIPMENT 



AN/GRC-142 


2 




AN/GRC-122 


31 




AN/MSC-25 


1 




AN/MSC-31 


3 




AN7rCC-72 


5 


SWITCHING 


AN/TCC-73 


8 


SWITCHING 


AN7rRC-112 


5 


TRANSMISSION 


AN7TRC-121 


5 


TRANSMISSION 


ANTTRC-lSl 


20 


TRANSMISSION 


AN/TRC-152 


34 


TRANSMISSION 


AN/TRC-170 


6 


TRANSMISSION 


AN7TSC-76 


1 


NETWORKING 


AN/TSC-85 


3 


TRANSMISSION 


AN/TSC-93 


1 


TRANSMISSION 
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11435L0 Corps Level Signal Battalion (latacs) 



ITEM AMOUNT TYPE OF EQUIPMENT 



AN/MSC-31 


1 




ANATC-46 


1 




ANAT.C-190 


72 


TRANSMISSION 


ANATC-47 


6 




AN/TRC-191 


13 


TRANSMISSION 


ANATC-48 


40 




AN/TSQ-154 


7 





EXAMPLE UNIT ALLOCATION 

This allocation changes the unit into one that supports tactical satellite 
communications channels. 

3rd Sig Bde 



Date 


Equipment 


Amount 


2 Qtr Fy 90 


AN/GSQ-80 


3 


2 Qtr Fy 90 


AN/MSC-32 


1 


1 Qtr Fy 90 


AN/TYQ-35 


2 


3 Qtr Fy 88 


ANATSC-85 


3 


3 Qtr Fy 88 


AN/TSC-93 


3 
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APPENDIX B 



TOP LEVEL RULE FOR DISTRIBUTION OF UNIT SETS TO UNITS 

allocated(State,Newstate);- 

1 . unit(NameU,PriorityU,TypeU), 

2. member(procurement(YearP,EquipP,AmountP), State), 

3. Amountp > 0, 

4. unitstatus_look_unit(State,NameU,YearU,EquipU), 

5. forward(EquipU,EquipP), 

6. amount(EquipP,TypeU,Required), 

7 . Amount P>=Required , 

8. Temp is YearU+3, 

9. bigyear(YearP,Temp,Giveyear), 

10. deleteone(procurement(YearP, EquipP,AmountP), State, X2), 

11. NewamountP is AmountP-Required, 

12. append_if_necessary(X2,X3,YearP,EquipP,NewamoiintP), 

13. appendd(given(NameU,EquipP,Giveyear,Required),X3,X4), 

14. not(any_wrong_priority(X4)), 

15. member(given(NameU,EquipU,YearU,01damount),X4), 

16. YY is Giveyear+1, 

17. give_to_PDO_or_procurement(X4,NameU,EquipU,YY,01damount,X5), 

18. get_rid_of_extraiieous_proc(EquipU,X5,Newstate). 

For clarity the time units were called years in the program. Capitalized items are 
variables in Prolog. 



Variable 



Explanation 



State 

Newstate 

NameU 

PriorityU 

TypeU 

YearP 

EquipP 

AmountP 

EquipU 

Required 

X2,X3,X4,X5 



Current state being examined 

Modified state after change has been made 

Name of the unit being examined 

Priority of UnitU 

Type of unit UnitU is 

Year that the procurement wdl be made 

Name of the set of equipment in the procurement 

Amount of equipment being procured 

The current set of equipment UnitU has 

The amount of EquipP that a unit of TypeU needs 

Temporaiy changes to the state in the rule 
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The successor rule states that an allocation of equipment can be made to a unit if the 
following conditions can be satisfied in this order. 

1. There is a unit available (call it NameU). 

2. There is still equipment to distribute. 

3. The amount to distribute is > 0. 

4. The set of equipment NameU currently has is EquipU and the time it 
received it is YearU. 

5. The next modernization step after EquipU is EquipP. 

6. The amount needed of EquipP for a unit of type TypeU is computed and 
called the variable Required. 

7. The amount needed to fully modernize the unit NameU is sufficient. 

8. A unit must keep an equipment set for at least 3 time periods, called years in 
the program for clarity; calculate the end of this period from when the 

old equipment was issued to the unit. 

9. The unit can receive an equipment set only at or after the 3-year point. 

10. Delete the equipment set from the list of available sets. 

11. If there are still sets of EquipP left after modernizing NameU, calculate 
the amount. 

12. Put the additional amount if any of EquipP back in the state for later 
allocation. 

13. Add the allocation record to the state for unit NameU. 

14. Detennine if the allocation violates the priority for equipment allocation. 

15. Determine the equipment the unit had prior to allocation. 

16. The unit NameU only gives back equipment after it has both sets. This 
overlap of at least one time unit is necessary to continue the readiness 
posture of the unit. 

17. Decide what to do with the old equipment. If a unit needs the equipment that 
unit NameU is giving up, the equipment is put in a procurement record. 
Otherwise it is given to Property Disposal (PDO). 

18. Take care of equipment which is no longer needed. 

There is an additional rule that combines procurements of the same type. 
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APPENDIX C 
QUERIES AND RESULTS 



This appendix gives Prolog top-level queries and results from the different runs of the 
Phase II, the allocation-of-equipment phase. The queries describe the units present 
and their status. Tlie units each have a type of unit and a priority for new 
equipment. The state description has "given records" tliat describe the latest level of 
equipment modernization, tlie ainount received, and the date it was given to the unit. 
The state also has "procurement records" which describe when equipment is available 
for distribution to a unit, the amount available, and the type of equipment. 

The final state computed by Phase II used all the equipment available and disposed 
of equipment not needed. The latter is done with the "pdo record" of the final state, 
which indicates at the time specified all units had no use for the equipment at that 
time or any time in the future. 
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TWO UNITS 



go_2c:- compile(nopathsearch), 
compile(components), 
c ompile(planner) , 
assert(unit(sig5 , 1 .s4 1 5 )), 
assert(unit(sig3,3,s415)), 
done_searching_fiIe([ 

given(sig5 ,iatacs ,2,2), 
given(sig3,atacs,3,l), 
procurement(6,iatacs,l), 
procurement(5,iatacs,l ), 
procurement(7,mse,2)J, 
outplanner2c),halt. 

[given(sig5 ,iatacs,2,2),given(sig5 ,mse,7, 1 ), 
given(sig3,atacs,3,l),given(sig3,iatacs,6,2),given(sig3,mse,9,l), 

pdo(sig3,7,atacs,l),pdo(procurement,8,iatacs,2), pdo(sig3,10,iatacs,2)] 
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THREE UNITS 



go_3c:- compile(nopathsearch), 
compile(components), 
compile(planner), 
assert(unit(sig5,l,s415)), 
assert(unit(sig2,2,s4 15)), 
assert(unit(sig3 ,3 ,s4 1 5 )), 
done_se arching_file ( [ 

given(sig5,iatacs,2,2), 
given(sig2,atacs,3,l), 
given(sig3,atacs,5,l), 
procurement(5,iatacs,2), 
procu rement (7 ,mse ,2 ) , 
procurement(9,mse,l ) 

], 

outplanner3c),halt. 

[given(sig5,iatacs,2,2),given(sig5,mse,7,l), 
given(sig2,atacs,3,l),given(sig2,iatacs.6,2),given(sig2,mse,9,l), 
given(sig3,atacs,5,l),giveii(sig3,iatacs,8,2),given(sig3,mse,l 1,1), 

pdo(sig2,7,atacs,l),pdo(sig3,9,atacs,l),pdo(sig2,10,iatacs,2), pdo(sig3,12,iatacs,2)] 
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FOUR UNITS 



go_4c:- compile(nopathsearch), 
compile(components), 
compile(planner), 
assert(unit(sig5, 1 ,s4 15)), 
assert(unit(sig4,2,s415)), 
assert(unit(sig2,4,s415)), 
assert(unit(sig3,3 ,s4 15)), 
done_se arching_file ( [ 

given(sig5,iatacs,2,2), 
given(sig3 ,atacs,3 , 1 ), 
given(sig2,atacs,5, 1 ), 
given(sig4,atacs,3 , 1 ), 
procureinent(5,iatacs,3), 
procurement(7,mse,2), 
procu rement(9,nise ,2 ) 

], 

outplanner4c),halt. 

[given(sig5 ,iatacs,2,2),given(sig5 ,nise ,7,1), 
given(sig4,atacs,3,l),given(sig4,iatacs,6,2),given(sig4,mse,9,l ), 
given(sig3 ,atacs,3 , 1 ),given(sig3 ,iatacs,8,2),given(sig3 ,mse, 11,1), 
given(sig2,atacs,5,l),given(sig2,iatacs,10,2),given(sig2,mse,13,l), 

pdo(sig4,7,atacs,l),pdo(procurement,8,iatacs,l), 

pdo(sig3,9,atacs,l),pdo(sig2,ll,atacs,l), 

pdo(procurement,12,iatacs,2),pdo(sig2,14,iatacs,2)] 
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FIVE UNITS 



go_5c> conipile(nopathsearch), 
compiIe(components ) , 
compile(planner), 
assert(unit(sig5 , 1 ,s4 1 5)), 
assert(imit(sig4,2,s4 15)), 
assert(unit(sig2,4,s4 15)), 
assert(unit(sig3,3,s4I5)), 
assert(unit(sig 1 ,5 ,s4 1 5 ) ), 
done_se arching_file ( [ 

given(sig5,iatacs,2,2), 
given(sig3,atacs,4,l), 
given(sig2,atacs,5,I ), 
given(sig4,atacs,4,I), 
given(sig I ,atacs,5 , 1 ), 
procurement(5,iatacs,3), 
procurement(7 ,mse ,2), 
procurement(9,mse,2) 

], 

outplanner5c),haIt. 



[given(sig5,iatacs,2,2),given(sig5,nise,7,I), 
given(sig4,atacs,4,I),given(sig4,iatacs,7,2),given(sig4,mse,I0,I), 
given(sig3 ,atacs,4, 1 ),given(sig3 ,iatacs,8,2),given(sig3 ,mse, 1 1 , 1 ), 
given(sig2,atacs,5,I),given(sig2,iatacs,Il,2),given(sig2,mse,I4,I), 
given(sig I ,atacs,5 , 1 ),given(sigl ,iatacs, 1 2,2), 

pdo(procurement,5 ,iatacs, I ), 

pdo(sig4,8,atacs,I),pdo(sig3,9,atacs,I),pdo(sig2,I2,atacs,I), 
pdo(sig 1 , 1 3 ,atacs , I ) ,pdo(sig2, 1 5 ,iatacs ,2)] 
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SIX UNITS 



go_6c;- compile(nopathseaxch), 
compile(components), 
compUe(planner), 
assert(unit(sig5 , 1 ,s4 1 5 )), 
assert(unit(sig4,2,s415)), 
assert(unit(sig2,4,s415)), 
assert(unit(sig3 ,3 ,s4 1 5 )), 
assert (unit(sig 1 ,5 ,s4 1 5 )), 
assert(uiiit(sig0,5,s4 15)), 
done_se arching_f ile ( [ 

given(sig5,iatacs,2,2), 
given(sig3,atacs,4, 1 ), 
given(sig2,atacs,5 , 1 ), 
given(sig4,atacs,4,l), 
given(sigl ,atacs,5, 1 ), 
given(sig0,atacs,5, 1 ), 
procurement(5 ,iatacs ,3 ), 
procurement(7 ,mse ,2), 
procurement(7 ,iatacs ,3 ), 
procurement(9,mse,2) 

], 

outplanner6c),halt. 



PLAN GENERATED 

[gi ven(sig5 ,iatacs ,2,2),given(sig5 ,mse ,7,1), 
given(sig4,atacs,4,l),given(sig4,iatacs,7,2),given(sig4,mse,10,l), 
given(sig3 ,atacs,4, 1 ),given(sig3 ,iatacs,7,2),given(sig3 ,mse, 10, 1 ), 
given(sig2,atacs ,5 , 1 ),given(sig2,iatacs ,8 ,2),given(sig2,mse, 11,1), 
given(sig0,atacs,5,l),given(sigl,atacs,5,l), given(sig0,iatacs,8,2), 
given(sig 1 ,iatacs, 11,2), 

pdo(sig4,8 ,atacs, 1 ),pdo(sig3 ,8 ,atacs, 1 ), pdo(sig2,9,atacs, 1 ), 
pdo(sig0,9,atacs,l), 

pdo(procurement,ll,iatacs,2), pdo(sigl,12,atacs,l),pdo(sig2,12,iatacs,2)] 
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SEVEN UNITS 



go_7c;- compile(nopathsearch), 
compile(components), 
compile(planner), 
assert(unit(sig5 , 1 ,s4 1 5 )), 
assert(unit(sig4,2,s4 15)), 
assert(unit(sig3,3,s415)), 
assert(unit(sig2,4,s4l5)), 
assert(unit(sig 1 ,5 ,s4 15)), 
assert(unit(sig0,5,s4 15)), 
assert(unit(siga,6,s4 15)), 
done_se arching_file( [ 

given(sig5,iatacs,2,2), 
given(sig4,atacs,2,l), 
given(sig3,atacs,3,l), 
given(sig2,atacs,5 , 1 ), 
given(sig 1 ,atacs,5 , 1 ), 
given(sig0,atacs,5,l ), 
given(siga,atacs,5,l ), 
procurement(5,iatacs,4), 
procu rement (7 ,mse ,2 ) , 
procurement(9,mse,2) 

], 

outpIanner7c),halt. 



PLAN GENERATED 

given(sig5,iatacs,2,2),given(sig5,mse,7,l), 

given(sig4,atacs,2,l),given(sig4,iatacs,5,2),given(sig4,mse,8,l), 

given(sig3,atacs,3,l),given(sig3,iatacs,6,2),given(sig3,mse,9,l), 

given(sig2,atacs,5,l),given(sig2,iatacs,8,2),given(sig2,mse,ll,l), 

given(sig0,atacs,5,l),given(sigl,atacs,5,l), given(sig0,iatacs,9,2), 

given(sigl,iatacs,10,2),given(siga,atacs,5,l),given(siga,iatacs,12,2), 

pdo(sig4,6,atacs,l),pdo(sig3,7,atacs,l),pdo(sig2,9,atacs,l), 
pdo(sig0,10,atacs,l ),pdo(sigl ,1 1 ,atacs,l ), 
pdo(siga, 1 3 ,atacs, 1 )] 
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EIGHT UNITS 



go_8ci- compile(nopathsearch), 
compile(components), 
compile(planner), 
assert(unit(sig8 ,3 ,s4 1 5 )), 
assert(unit(sig7,4,s4 15)), 
assert(unit(sig6,5 ,s4 1 5 )), 
assert(unit(sig5 ,6,s4 1 5 ) ), 
assert(unit(sig4,7,s415)), 
assert(unit(sig3 ,8 ,s4 1 5 )), 
assert(unit(sig2,9,s4 15)), 
assert(unit(sig 1 , 1 0,s4 1 5 ) ), 
done_se arching_file ( [ 

giveii(sig8,iatacs,3,2), 
given(sig7,atacs,2,l ), 
given(sig6,atacs,2,l), 
given(sig5,atacs,2,l), 
given(sig4,atacs,4,l), 
given(sig3 ,atacs,4, 1 ), 
given(sig2,atacs,5,l ), 
given(sigl,atacs,5,l), 

procurement(8 ,iatacs,3 ), procurement(5 ,iatacs ,3 ), 
procurement(7,mse,2), procurement(9,mse,2) 

],outplanner8c). 

PLAN GENERATED 

[given(sig8,iatacs,3,2),given(sig8,mse,7,l), 

given(sig7,atacs,2,l),given(sig7,iatacs,5,2),given(sig7,mse,8,l), 

given(sig6,atacs,2,l ),given(sig6,iatacs,8,2),given(sig6,mse, 1 1,1), 

given(sig5,atacs,2,l),given(sig5,iatacs,8,2),given(sig5,nise,ll,l), 

given(sig4,atacs,4,l),given(sig4,iatacs,8,2), 

given(sig3,atacs,4,l),given(sig3,iatacs,9,2), 

given(sig2,atacs,5,l),given(sig2,iatacs,12,2), 

given(sig 1 ,atacs,5, 1 ),given(sig 1 ,iatacs, 1 2,2), 

pdo(sig7,6,atacs,l),pdo(sig6,9,atacs,l),pdo(sig5,9,atacs,l), 
pdo(sig4,9,atacs,l),pdo(sig3,10,atacs,l),pdo(sig2,13,atacs,l), pdo(sigl,13,atacs,l)j 
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NINE UNITS 



go_9c;- compile(nopathsearch), 
compile(components), 
compile(planner), 

assert(unit(sig9,2,s415)), assert(unit(sig8,3,s415)), 
assert(unit(sig7,4,s415)), assert(unit(sig6,5,s415)), 
assert(unit(sig5,6,s415)), assert(unit(sig4,7,s415)), 
assert(unit(sig3,8,s415)), asseil(unit(sig2,9,s415)), 
assert(unit(sig 1 , 1 0,s41 5)), 
d one_se arching_file ( [ 

given(sig9,iatacs,2,2), given(sig8,iatacs,3,2), 
given(sig7,atacs,2,l), given(sig6,atacs,2,l), 
given(sig5,atacs,2,l), given(sig4,atacs,4,l), 
given(sig3,atacs,4,l), given(sig2,atacs,5,l), 
given(sigl ,atacs,5,l ), 

procurement(8,iatacs,3), procurement(5,iatacs,3), 

procuremeiit(7,mse,2), procurement(9,mse,2) 
],outplanner9c). 

PLAN GENERATED 
[given(sig9,iatacs,2,2),given(sig9,mse,7,l), 

given(sig8,iatacs,3,2),given(sig8,inse,7,l). 

given(sig7,atacs,2,l),given(sig7,iatacs,5,2),given(sig7,mse,9,l), 

given(sig6,atacs,2,l),given(sig6,iatacs,8,2),given(sig6,mse,ll,l), 

giveii(sig5,atacs,2,l),given(sig5,iatacs,8,2), 

given(sig4,atacs,4,l)»given(sig4,iatacs,8,2), 

given(sig3,atacs,4,l),given(sig3,iatacs,8,2), 

given(sig2,atacs,5,l),given(sig2,iatacs,10,2), 

given(sigl,atacs,5,l),given(sigl,iatacs,12,2), 

pdo(sig7,6,atacs, 1 ),pdo(sig6,9,atacs, 1 ), 
pdo(sig5 ,9,atacs, 1 ),pdo(sig4,9,atacs, 1 ), 
pdo(sig3 ,9,atacs, 1 ),pdo(sig2, 1 1 ,atacs, 1 ),pdo(sig 1 , 1 3,atacs, 1 )] 
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TEN UNITS 



go_10c:- compile(nopathsearch), 
compile(components), 
compile(planner), 

assert(unit(sig 1 0, 1 ,s4 1 5 )), assert(unit(sig9,2,s41 5 )), 
assen(unit(sig8,3,s415)), assert(unit(sig7,4,s415)), 
assert(unit(sig6,5 ,s4 15)), assert(unit(sig5 ,6,s4 15)), 

assert(unit(sig4,7,s415)), assert(unit(sig3,8,s415)), 
assert(unit(sig2,9,s4 15)), assert(unit(sig 1 , 1 0,s4 1 5)), 

done_searching_file([given(sigl0,iatacs,2,2), given(sig9,iatacs,2,2), 
given(sig8,iatacs,3,2), given(sig7,atacs,2,l), 
given(sig6,atacs,2,l), given(sig5,atacs,2,l), 
given(sig4,atacs,4,l), given(sig3,atacs,4,l), 
given(sig2,atacs,5 , 1 ), given(sig 1 ,atacs,5 , 1 ), 

procurement(8 ,iatacs ,3 ) , procurement(5 ,iatacs ,3 ) , 
procurement(7,mse,2), procurement(9,mse,2) 
],outplamierlOc). 

PLAN GENERATED 

[given(sigl0,iatacs,2,2),given(sigl0,nise,7,l), 

given(sig9.iatacs,2,2),given(sig9,mse,7,l). 

given(sig8,iatacs,3,2),given(sig8,mse,9,l), 

given(sig7,atacs,2,l),given(sig7,iatacs,5,2),given(sig7,mse,9,l), 

given(sig6,atacs,2,l),given(sig6,iatacs,8,2), 

given(sig5,atacs,2,l),given(sig5,iatacs,8,2), 

given(sig4,atacs,4,l),given(sig4,iatacs,8,2), 

given(sig3,atacs,4,l ),given(sig3,iatacs,8,2), 

given(sig2,atacs,5,l),given(sig2,iatacs,10,2), 

given(sig 1 ,atacs,5 , 1 ),given(sig 1 ,iatacs, 1 0,2), 

pdo(sig7,6,atacs, 1 ),pdo(sig6,9,atacs, l),pdo(sig5,9,atacs,l), 
pdo(sig4,9,atacs, 1 ),pdo(sig3,9,atacs,l ),pdo(sig2,l 1 ,atacs, 1 ), 
pdo(sig 1 , 1 1 ,atacs , 1 )] 
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APPENDIX D: SOURCE CODE 
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/* module procsearch */ 

/* This is the module that generates unit sets of equipment */ 

/* from individual procurements of equipment */ 

/* The goal of the search is a state where no other sets of 
equipment */ 

/* can be made from the components can be made 
*/ 



goalreached ( [ [ ] , X] ) : -write (X) , nl, statistics . 

goalreached ( [X, Y] ) ; -not (make_up_one_set (X, Output, Set, Year) ) , 

write (' ') ,nl, write (X) , nl, write (Y) , nl, statistics . 

/* the cost of a state is the amount of equipment not yet in sets 
*/ 

cost ( [X, Y] , Cost) : -countit (X, Cost) . 
countit ( [ ] , 0) . 

countit ( [X I L] , Y) ; -countit (L, Y2) , Y is Y2+1. 
eval (X, 1 ) • 

/* this is the top level call for this module which calls the 
search function*/ 

done_searching_f ile (X,Fname) : -save (coresearcher) , 
write ('core image saved' ),nl, 
tell (Fname) , search ( [X, [ ] ] , Y) , told, halt . 

successor ( [List_comp_proc, Setsofar] , 

[Out_list_comp_proc, Newsetsofar ] ) :- 

make_up_one_set (List_comp_proc, Out_list_comp_jproc, Set, Year) , 
appendd (procurement (Year, Set, 1) , Setsofar, Newsetsofar) . 



/* no more sets of possibilities to make up */ 

make_up_one_set (List_of_components, Rest_of_components, 

NameG, Year) : - 
generation (NameG) , 

bagof ( [Cname, Camount] , component (NameG, Cname, Camount) ,Clist) , 
makeit (List_of_components, Rest_of_components, Clist, 0, Year) . 

makeit (Procured_components_left , Procured_components_left , 

[ ] , Year, Year) . 
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makeit (Procured_coinponents, Rest_of_components_not_used, 
Needed_components, Latest_year , New_latest_year) 

firstmember (Needed_components, [NameC, AmountC] ) , 
member (procurement (Year , NameC, AmountP) , Procured_components) , 
take_care_of_lists (Year , AmountP, AmountC, NameC, Needed_components, 
New_needed, Procured_components, New_rest_of_components) , 
bigyear (Year, Latest_year, Tyear) , 
makeit (New_rest_of_components, Rest_of_components_not_used, 

New_needed, Tyear , New_latest_year) . 

take_care_of_lists (Year , AmountP , AmountC, NameC, Needed_components, 

New_needed, Procured_components, New_rest_of_components) : - 
AmountP>AmountC, 

deleteone ( [NameC, AmountC] , Needed_components, New_needed) , 
T is AmountP -AmountC, 

deleteone (procurement (Year, NameC, AmountP) , Procured_components , 
New_procured) , 

appendd (procurement (Year, NameC, T) , New__procured, 
New_rest_of_components) . 

take_care_of_lists (Year , AmountP , AmountC, NameC, Needed_components , 

New_needed, Procured_components, New_rest_of_components) : - 
Amount P<AmountC, 

deleteone ( [NameC, AmountC] ,Needed_components,New_neededl) , 

T is AmountC-AmountP, 

deleteone (procurement (Year, NameC, AmountP) , Procured_components, 
New_procured) , 

appendd ( [NameC, T] , New_neededl , New needed) . 



take_care_of_lists (Year , AmountP , AmountC, NameC, Needed_components, 

New_needed, Procured_components, New_rest_of_components) ; - 
AmountP=AmountC , 

deleteone ( [NameC, AmountC] ,Needed components. New needed) , 



deleteone (procurement (Year , NameC, AmountP) , Procured_components, 
New_rest_of_components) . 
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/* the following code does a sort of the list for comparisons and 

output */ 

sortpplist ( [ ] , [ ] ) . 

sortpplist ( [X I LI ] , L2) : - 
sortpplist (LI , L3) , 
insert_item_for_sort (X, L3, L2) . 

insert_item_for_sort (X, [] , [X] ) . 

insert_item_for_sort (procurement (XYear, XName, XAmount) , 
[procurement (YYear, YName, YAmount) | L] , 

[procurement (XYear, XName, XAmount ) , 
procurement (YYear, YName, YAmount) | L] ) : - 
priority (XName, X) , 
priority (YName, Y) , 

XX is X+XYear*1000, 

YY is Y+YYear*1000, 

XX<YY . 

insert_item_for_sort (procurement (XYear , XName, XAmount ) , 
[procurement (YYear, YName, YAmount) | Ll] , 

[procurement (YYear, YName, YAmount) |L2]) 
priority (XName, X) , 
priority (YName, Y) , 

XX is X+XYear*1000, 

YY is Y+YYear*1000, 

XX>=YY, 

insert_item_for_sort (procurement (XYear , XName, XAmount ) ,Ll,L2) . 
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/* general purpose utilities needed in the procsearc module 



*/ 



prunable (State, D, BestState, Dbest) : - 

check_permutation (State, BestState) , ! . 

firstmember ( [X | L] , X) . 

bigyear (Inyear, Year, Outyear) : - Year >=Inyear, Outyear is Year, 
bigyear (Inyear, Year, Outyear) ; - Year <Inyear, Outyear is Inyear. 

minimum ( [X] ,X) . 

minimum ([X|L],X): -minimum (L, X2) , X<X2 . 
minimum ( [X | L] , X2) ; -minimum (L, X2) , not (X<X2) . 

max ( [X] ,X) . 

max ( [X I L] , X) : -max (L, X2) , X>X2 . 
max( [X|L] ,X2) :-max(L,X2) ,not (X>X2) . 

member (X, [X | L] ) . 

member (X, [Y | L] ) : - member (X, L) . 

deleteone (X, [X | L] , L) . 

delete one (X, [Y|L], [Y|Z]) ;- deleteone (X, L, Z) . 
appendd (Element , List, [Element | List ] ) . 
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/* module proc-gen */ 

/* this module was the first alternative method of generating 
unit sets*/ 

/* of equipment. This module enumerates all of the combinations 
of unit */ 

/* sets of equipment and then returns the one with the most sets 
of equipment */ 

make_up_possibilities_no_dups_f ile (Input , Fname) 
save (coreprocgen) , 

write (' core saved ctl c now'),nl,nl, 
setof (U, multiple_sets_of_j3roc ( Input, U) , X) , 
remove_sublists (X, Z) , 
tell (Fname) , 

write (Z) , statistics, told. 

multiple_sets_of_proc (Input , X) 

have_them_all (Input, [] , Sets) , 
tell (workproc) , write (Sets) , told, 
sortpplist (Sets, X) . 

have_them_all ( [ ] , X, X) . 

have_them_all (List_comp_proc, Setsofar , Newsets) : - 

make_up_one_set (List_comp_proc, Out_list_comp_proc, Set, Year) , 
appendd (procurement (Year, Set, 1) , Setsofar, Newsetsofar) , 
have_them_all (Out_list_comp^roc, Newsetsofar, Newsets) . 

have_them_all ( Y, X, X) . 

make_up_one_set (List_of_components, Rest_of_components, 

NameG,Year) 
generation (NameG) , 

bagof ( [Cname, C amount ] , component (NameG, Cname, Camount) ,Clist) , 
makeit (List_of_components, Rest_of_components , Clist , 0, Year) . 

makeit (Procured_components_left , Procured_components_left , 

[ ] , Year, Year) . 
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makeit (Procured_components , Rest_of_components_not_used, 
Needed_components, 

Latest_year , New_latest_year) 

firstmember (Needed_components, [NameC, Amount C] ) , 
member (procurement (Year, NameC, AmountP) , 

Procured_components) , 

take_care_of_lists (Year , AmountP , AmountC, NameC, 
Needed_components , 

New_needed, Procured_components, New_rest_of_components) , 
bigyear (Year, Latest_year, Tyear) , 
makeit (New_rest_of_components, Rest_of_components_not_used, 
New_needed, Tyear, New_latest_year) . 

take_care_of_lists (Year, AmountP, AmountC, NameC, Needed_components, 

New_needed, Procured_components, New_rest_of_components) : - 
Amount P>AmountC , 

deleteone ( [NameC, AmountC] , Needed_components, New_needed) , 
T is AmountP -AmountC, 

deleteone (procurement (Year, NameC, AmountP) , 
Procured_components , 

New_jprocured) , 

appendd (procurement (Year, NameC, T) , New_procured, 
New_rest_of_components) . 

take_care_of_lists (Year , AmountP , AmountC, NameC, Needed_components, 
New_needed, Procured_components, 

New_rest_of_components) 

Amount P<AmountC , 

deleteone ( [NameC, AmountC] ,Needed_components,New_neededl) , 
T is AmountC -AmountP, 

deleteone (procurement (Year, NameC, AmountP) , 
Procured_components , 

New_procured) , 

appendd ( [NameC, T] , New_neededl , New_needed) . 



take_care_of_lists (Year , AmountP , AmountC, NameC, Needed_components, 
New_needed, Procured_components, New_rest_of_components) : - 
AmountP=AmountC , 

deleteone ( [NameC, AmountC] , Needed_components, New_needed) , 
deleteone (procurement (Year , NameC, AmountP) , 
Procured_components , 

New rest of components) . 
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sortpplist ([],[]). 

sortpplist ( [X|L1] ,L2) 

sortpplist (LI , L3) , 
insert_item_for_sort (X, L3, L2) . 

insert_item_for_sort (X, [] , [X] ) . 

insert_item_for_sort (procurement (XYear, XName, XAmount) , 
[procurement (YYear, YName, YAmount) | L] , 

[procurement (XYear , XName, XAmount ) , 

procurement (YYear , YName, YAmount ) |L] ) 
priority (XName, X) , 
priority (YName, Y) , 

XX is X+XYear*1000, 

YY is Y+YYear*1000, 

XX<YY . 

insert_item_for_sort (procurement (XYear , XName, XAmount) , 
[procurement (YYear, YName, YAmount) I LI] , 

[procurement (YYear , YName, YAmount ) |L2]) 
priority (XName, X) , 
priority (YName, Y) , 

XX is X+XYear*1000, 

YY is Y+YYear*1000, 

XX>=YY, 

insert item for sort (procurement (XYear , XName, XAmount ) ,L1,L2) 
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remove_sublists (Y, Z) : - get_rid_of_sublist (Y, Z) . 

get_rid_of_sublist (Y, Y) not (delete_sublist (Y, Y1 ) ) . 

get_rid_of_sublist (Y, Z) delete_sublist (Y, Yl) , 

get_rid_of_sublist (Yl, Z) . 

delete_sublist (Y, Ynew) 
member (X, Y) , 
member (XI , Y) , 
not (X=X1) , 

length_of_list (X, Lx) , 
length_of_list (XI, Lxl) , 

Lx<Lxl , 

sublist (X, XI ) , 
deleteone (X, Y, Ynew) . 

sublist ( [ ] , X) . 

sublist (X, XI ): - member (E, X) , member (E, XI ) , deleteone (E, X, Xnew) , 
sublist (Xnew, XI ) . 

/* General purpose utilities used in this module */ 
subset ( [ ] , L) . 

subset ( [X I L] , L2) : -singlemember (X, L2) , subset (L, L2) . 
f irstmember ( [X | L] , X) . 

bigyear ( Inyear , Year , Outyear) : - Year >=Inyear, Outyear is Year, 
bigyear (Inyear , Year , Outyear) : - Year <Inyear, Outyear is Inyear. 

minyear ( [procurement (Year, Equip, Amount) ], Year , Amount) . 
minyear ( [procurement (Year, Equip, Amount) | L] , Year , Amount ) 
minyear (L, Y, A) , Year<Y . 

minyear ( [procurement (Year, Equip, Amount) | L] , Y, A) : - 
minyear (L, Y, A) , not ( Year<Y) . 

minimum ( [X] , X) . 

minimum ( [X | L] , X) : -minimum (L, X2) , X<X2 . 
minimum ( [X | L] , X2) : -minimum (L, X2 ) , not (X<X2 ) . 

member (X, [X | L] ) . 

member (X, [ Y | L] ) : - member (X, L) . 

deleteone (X, [X | L] , L) . 

deleteone (X, [Y | L] , [Y 1 Z] ) : - deleteone (X, L, Z) . 
appendd (Element , List, [Element | List ] ) . 
length_of_list ( [X] , 1) . 

length_of_list ( [X|L] , I) :-length_of list (L, II), I is Il+l. 
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/* module components */ 

/* This module defines the parameters for the program. 

/* It defines the following */ 

/* 1. Equipment in a set of equipment */ 

/* 2. The modernization path for types of units */ 

/* 3. A numeric sequence for equipment used in sorted 



output * / 



priority (msediv, 1) . priority (iatacsdiv, 2) . 

priority (atacsdiv, 3) . 

forward (atacs, iatacs) . forward (iatacs, mse) . 

generation (atacs) . generation (iatacs) . 
generation (mse) . 

amount (mse, s615, 1) . 
amount (iatacs, s615, 1) . 
amount (atacs, s615, 1) . 

/* priority of components for sorts */ 

priority (trcl45, 100) . 

priority (trcll3, 101) . 

priority (trcll5, 102) . 

priority (ttc29, 103) . 

priority (ttc39, 104) . 

priority (ttc41 , 105) • 

priority (trcl52 , 106) . 

priority (trcl53, 107) . 

priority (trcl54 , 108) . 

/* list of components */ 

component (atacs, trcl45, 1) . 
component (atacs, ttc29, 1) . 
component (atacs, trcll3, 1) . 
component (iatacs, trcll5, 1) . 
component (iatacs, ttc3 9, 1 ) . 
component (iatacs, trcl52, 1) . 
component (mse, ttc41, 1) . 
component (mse, trcl53 , 1 ) . 
component (mse,trcl54, 1) . 
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/* module nopathsearch */ 

/* This implements search with an evaluation and cost function, 
*/ 

/* but without keeping of path lists. Answer returned is the */ 
/* final state. This can save much space, but the solutions 
found */ 

/* are not guaranteed optimal (nor will typing semicolons 
necessarily */ 

/* help) . For an application, you must define 6 predicates: */ 



/* (a) successor (State, Newstate) (gives state transitions) */ 

/* (b) goalreached (State) (defines when goal achieved) */ 

/* (c) eval (State, Evaluation) (estimates cost to the goal) */ 

/* (d) cost (State, Cost) (computes cost to a state from its 

description) */ 

/* (NOTE PRECEDING IS DIFFERENT FROM A* — PATHLIST NOT 

USED) */ 

/* (e) prunable (State, DState, Beststate, DBeststate) (defines 

conditions */ 

/* for pruning State from the agenda, given Beststate is 

the best */ 

/* state on the agenda according to D=cost+eval (optional) ) 

*/ 

/* (f) a top-level predicate that initializes things if needed 

and * / 

/* then calls astar search with two arguments, the starting 

*/ 

/* state and variable which will be the solution path. */ 

/* Note: "cost" must be nonnegative. The "eval" should be a 

lower bound */ 

/* on cost in order for the first answer found to be guaranteed 
optimal. */ 



/* this progrm has the declarations for quintus prolog */ 

:- dynamic beststate/2, agenda/3, usedstate/2, counter/1, 
search (Start ,Ans) :- nopathsearch (Start, Ans) . 

nopathsearch (Start , State) :- cleandatabase, add_state (Start) , 
repeatifagenda, pick_best_state (State) , 
add_successors (State) , agenda (State, C, D) , 
retract (agenda (State, C, D) ) , measurework . 

pick_best_state (State) : - asserta (beststate (dummy, dummy) ) , 
agenda (S, C, D) , beststate (S2 , D2 ) , special_less_than (D, D2) , 
retract (beststate (S2 , D2) ) , asserta (beststate (S , D) ) , fail. 
pick_best_state (State) :- beststate (S , D) , agenda (S2, C2, D2) , 
not (S=S2) , 

prunable (S2 , D2 , S, D) , retract (agenda (S2, C2, D2) ) , fail. 
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pick_best_state (State) beststate (State, D) , 

retract (beststate (State, D) ) , not (D=duinmy) , ! . 

add_successors (State) goalreached (State) , !. 

add_s ucce s s o r s ( S t at e ) s ucce s s or ( S t at e , Ne ws t at e ) , 

add_state (Newstate) , fail. 

add_successors (State) retract (agenda (State, C, D) ) , 

asserta (usedstate (State, C) ) , fail . 

a d d_ state(Newstate) cost(Newstate,Cnew), !, 

agenda_check (Newstate, Cnew) , 

!, usedstate_check (Newstate, Cnew) , !, eval (Newstate, Knew) , D is 

Enew + Cnew, 

asserta (agenda (Newstate, Cnew, D) ) , ! . 

add_state (Newstate) : - not (cost (Newstate, Cnew) ) , 

write (' Warning : your cost function failed on path list '), nl, 

! . 

add_state (Newstate) not (eval (Newstate, Enew) ) , 

write (' Warning : your evaluation function failed on state '), 
write (Newstate) , nl, !. 

agenda_check(S,C) agenda(S,C2,D2), C<C2, 

retract (agenda (S, C2, D2) ) , !. 

agenda_check (S, C) agenda (S, C2, D2) , !, fail. 

agenda_check (S, C) . 

usedstate_check(S,C) usedstate(S,C2), C<C2, 

retract (usedstate (S, C2) ) , 
asserta (usedstate (S , C) ) , !. 

usedstate_check (S, C) . 

repeatif agenda . 

repeatifagenda agenda (X, Z, W) , repeatif agenda. 

special_less_than (X, dummy) !. 

special_less_than (X, Y) X<Y. 

cleandatabase checkabolish(agenda,3), 

checkabolish (usedstate, 2) , 

checkabolish (beststate, 2) , checkabolish (counter, 1) . 

checkabolish (P, N) abolish (P, N) , !. 

checkabolish (P, N) . 

measurework countup(agenda(X,C,D),NA), 

countup (usedstate (S , C) , NB) , 

tell (outstates) , write (NA) , write ( ' incompletely examined 
state (s) and ' ) , 

write (NB) , write (' examined 
state (s) ' ) , nl, print_agenda, print_usedstate, 
told, ! . 
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countup(P,N) asserta (counter (0) ) , call (P) , counter (K) 

retract (counter (K) ) , 

K2 is K+1, asserta (counter (K2) ) , fail. 
countup(P,N) counter (N) , retract (counter (N) ) , !. 

append ( [ ] , L, L) . 

append( [I |L1] ,L2, [I |L3] ) append (LI , L2 , L3) . 
print_agenda ; - 

write ( ' agenda' ) , nl, agenda (X, Y, Z) , 

write (X) , write ( ' '), write (Y) , write ( ' '), write (Z) , nl , fail 

print_agenda • 
print_usedstate : - 

write ( ' usedstates' ) , nl , usedstate (X, Y) , 
write (X) , write (Y) ,nl, fail, 
print usedstate . 
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/* module planner */ 

/* this is a protytype plannng program */ 

/* it comes up with a distribution but does not consider the */ 
/* priority of the units or the fact that distribution must */ 
/* modernize the units as soon as possible */ 

/* This version of the planning program does not have the delay 
factor */ 

/* being used in it */ 

: -dynamic mytrace/3. 

; -dynamic variable/1. 

mytrace (allocated, 0,0). 
variable (1) . 

/* this traces how long a successor takes if the tracer flag is 
asserted */ 

successor (X, Y) : -tracer, statistics (runtime, CG) , 

allocated (X, Y) , 

statistics (runtime, Time) , retract (variable (Count) ) , 

Counter is Count+1, asserta (variable (Counter) ) , 
asserta (mytrace (allocated, Counter, Time) ) . 

successor (X, Y) : - not (tracer) , allocated (X, Y) . 

/* allocate for procurement after unit is available */ 
allocated (XI, XNew2) :- 

unit (NameU, PriorityU, TypeU) , 

member (procurement (YearP, EquipP , AmountP) ,X1) , 

AmountP>0 , 

unitstatus_look_unit (XI , NameU, YearU, EquipU) , 
forward (EquipU, EquipP) , 
amount (EquipP, TypeU, Required) , 

AmountP >= Required, 

Temp is YearU+3, 

bigyear (YearP, Temp, Giveyear) , 

deleteone (procurement (YearP, EquipP, AmountP) ,X1,X2) , 
NewamountP is AmountP - Required, 

append_if_necessary (X2, X3, YearP , EquipP, NewamountP) , 
appendd (given (NameU, EquipP , Giveyear, Required) , X3 , X4 ) , 
not (any_wrong_priority (X4) ) , 

member (given (NameU, EquipU, YearU, Oldamount) ,X4) , 

YY is Giveyear +1, 

give_to_PDO_or_procurement (X4 , NameU, EquipU, YY, Oldamount , X5) , 
get_rid_of_extraneous_proc (EquipU, X5,XNew2) . 
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/* when more than one procurement is necessary for the unit */ 

allocated (XI, XNew2) 

unit (NameU, PriorityU, TypeU) , 

unitstatus_look_unit (XI , NameU, YearU, EquipU) , 
forward (EquipU, EquipP) , 
amount (EquipP, TypeU, Required) , 

bagof (P, member (procurement (_, EquipP, P) , XI) , Plist) , 
addit (Plist , AmountP) , 

AmountP >= Recjuired, 

bagof (Q, proc_for_equip (EquipP, XI , Q) , Pelist ) , 
delete_all_e (EquipP, XI , X2) , 

get_enough (Pelist , Required, Out list , Tyear) , 

Temp is YearU+3, bigyear (Tyear , Temp, Outyear) , 
concat (Outlist , X2, X3) , 

appendd (given (NameU, EquipP, Outyear , Required) ,X3,X4) , 
not (any_wrong_priority (X4) ) , 

member (given (NameU, EquipU, YearU, Oldamount) ,X4) , 

YY is Outyear +1, 

give_to_PDO_or_procurement (X4 , NameU, EquipU, YY, Oldamount , X7) , 
get_rid_of_0^rocurements (X7,X8) , 
get_rid_of_extraneous^roc (EquipU, X8 , XNew2) . 

get_rid_of_extraneous_proc (Equip, X, Y) : - 

member (procurement (Year , Equip, Amount ) ,X) , 
not (anybody _at_lower_levels (X, Equip) ) , 
deleteone (procurement (Year , Equip, Amount ) , X, XI ) , 
appendd (pdo (procurement , Year, Equip, Amount ) ,X1,Y) . 



get_rid_of_extraneous^roc (Equip, X, X) . 

anybody_at_lower_levels (List, Equip) 

forward (X, Equip) , 
unitstatus_look_equip (List , X) . 

anybody_at_lower_levels (List, Equip) 

forward (X, Equip) , 
anybody_at_lower_levels (List,X) . 

append_if_necessary (List , Newlist , YearP, EquipP, NewamountP) : - 
NewamountP>0 , 

appendd (procurement (YearP, EquipP, NewamountP) , List , Newlist ) . 

append_if_necessary (List, List, YearP, EquipP, NewamountP) ; - 
NewamountP=0 . 
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unitstatus_look_year (List, Year) ; - unit (Name,_,_) , 
unitstatus_look_unit (List, Name, Year, El) . 

unitstatus_look_unit (List , Name, Year, Equip) ; - 

bagof ( [ YY, EE] , look_for_given (List , Name, YY, EE) , U) , 
maxequip (U, Year , Ecjuip) . 

look_for_given (List, Name, Year, Equip) : - 

member (given (Name, Equip, Year, Amount) ,List) . 
unit status_look_equip (List , Equip) unit (Name, _,_) , 

unitstatus_look_unit (List, Name, Year, El) , Ecjuip=El . 

maxequip ( [ [YY,EE] ] , YY,EE) . 

maxequip ( [ [YY,EE] |L] , YY,EE) ; -maxequip (L, Y1 , El ) ,YY>Y1. 
maxequip ( [ [YY,EE] |L] , Y1,E1) : -maxequip (L, Y1,E1) , not (YY>Y1) . 

proc_for_equip (EquipP, XI , procurement (Year, EquipP, Amount) ) :- 
member (procurement (Year, EquipP, Amount) ,X1) . 

/* when the amount in the minimum procurement is the correct 
amount * / 

get_enough (List , Required, Outlist , Year) ; - 

Required>0, minyear (List , Tyear, Amount) , 

T is Required - Amount, 

T=0, deleteone (procurement (Tyear, X, Amount) , List, Outlist) , 
Year is Tyear. 

/* when the amount in min procurement is not enough */ 
get_enough (List , Required, Outlist , Year) : - 

Required>0, minyear (List , Tyear, Amount) , 

T is Required - Amount, T>0, 

deleteone (procurement (Tyear, X, Amount) , List , Toutlist ) , 
get_enough (Toutlist, T, Outlist, Year) . 

/* when the amount in the min procurement is more than enough */ 
get_enough (List , Required, Outlist, Year) : - 

Required>0, minyear (List , Year, Amount) , 

T is Required - Amount, 

T<0, deleteone (procurement (Year, X, Amount) , List, Toutlist) , 
Excess is Amount- Required, 

appendd (procurement (Year, X, Excess) , Toutlist , Outlist) . 
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/* this rule makes sure units with different priority */ 
/* have different priority equipment */ 



any_wrong_priority (List) : - 
unit (N1,P1,_) , 
unit (N2,P2,_) , 
not (N1=N2) , 

unitstatus_look_unit (List , Nl, Y1 , El) , 
unitstatus_look_unit (List , N2 , Y2 , E2) , 
priority (El, PEI) , 
priority (E2, PE2) , 

priority_is_bad(El,E2, Yl, Y2,P1,P2,PE1,PE2) . 

/* these are the two cases of non valid priorities */ 
prior ity_is_bad (El, E2 , Yl, Y2, PI , P2 , PEI , PE2) : - 
E1=E2, 

PKP2, 

Y1>Y2. 

priority_is_bad(El,E2, Yl, Y2,P1,P2,PE1,PE2) 
not (E1=E2) , 

PKP2, 

PE1>PE2. 

give_to_PDO_or_procurement (0_st ate, Name, Equip, Year, 

Amount , N_st ate) 

check_f or_a_unit (0_state, Equip) , 

appendd (procurement (Year , Equip, Amount ) , 0_state, N_state) . 

check_for_a_unit (State, Equip) : - forward (0_equip, Equip) , 
unitstatus_look_equip (State, 0_equip) . 

check_for_a_unit (State, Equip) forward (0_equip, Equip) , 
check_for_a_unit (State, 0_equip) . 

/* this predicate works when a unit doesnt need the equipment 
you are giving */ 

/* and there is a previous generation */ 

give_to_PDO_or_procurement (Old_state, Name, Equip, Year, 

Amount , New_St ate) 

forward (01d_equip, Equip) , 

not (unitstatus_look_equip (01d_state, 01d_equip) ) , 
get_rid_of_remaining_procurements (Equip, Old_state, 01d_statel) , 
appendd (pdo (Name, Year , Equip, Amount ), 01d_statel , New State) . 
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/* this works when a unit does not need the equipment you are 
giving */ 

give_to_PDO_or_procurement (01d_state, Name, Equip, Year, 

Amount , New_St ate) 

not ( forward (01d_equip, Equip) ) , 

get_rid_of_remaining_procurements (Equip, 01d_state, 01d_statel) , 

appendd (pdo (Name, Year , Equip, Amount ) , 01d_statel , New_State) . 

get_rid_of_remaining_procurements (X, [] , [] ) . 
get_rid_of_remaining_procurements (X, 

[procurement (Year , X, Amount) |L], 

[pdo (procurement, Year, X, Amount) ILL]) 
get_rid_of_remaining_procurements (X, L, LL) . 
get_rid_of_remaining_procurements (X, 

[Transaction | L] , [Transaction | LL] ) ; - 
get_rid_of_remaining_procurements (X, L, LL) . 

get_rid_of_0_procurements (01d_state, New_state) 
deleteall (01d_state, New_state) . 

/* the evaluation function calculates the least number of */ 

/* givens needed to get a unit to the highest procurement */ 

eval (List, Z) ; -bagof (U, priorities (List, U) , Prioritylist ) , 

minimum (Prioritylist, Z) . 

priorities (List , Return) unit (Name, _,_) , 
unitstatus_look_unit (List, Name, _, Equip) , 
priority (Equip, Return) . 

/* the cost function is the number of time periods the plan lasts 
*/ 

cost (List, Z) : -bagof (U, unitstatus_look_year (List, U) , Givelist) , 

addit (Givelist, Z) . 

/* define the goal of the program */ 

goalreached (X) : - get_rid_of_Oj>rocurements (X, New_state) , 

subgoal (New_state) . 

subgoal (New_state) not (member (procurement (_?_?_) ,New_state) ) . 
subgoal (New_st ate) not (allocated (New_state, X) ) . 
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/* this is a format for the program */ 

done_searching_f ile (List , Fname) : -any_wrong__priority (List ) , 
tell (Fname) , write (' it cannot be done'),nl, 

write('there is a problem with the units data'),nl, 
write (' equipoment already out of priority sequence' ), nl, 
told, halt . 

done_searching_f ile (List, Fname) : - 
not (tracer) , 
save (coreplanner) , 

write ('core image saved you can ctl c now'),nl, 
search (List , X) , sortplan (X, Y) , tell (Fname) , write (Y) , statistics, 
countup (agenda (A, B, C) , NA) , write (NA) , write ( ' : incomplete ' ) , 
countup (usedstate (S, SS) , NB) , write (NB) , write ( ' ; examined ' ) , 
told, halt . 

done_searching_f ile (List, Fname) : - 
tracer, 

save (coreplanner) , 

write ('core image saved you can ctl c now'),nl, 
search (List, X) , sortplan (X, Y) , 
tell (Fname) , write (Y) , statistics , 
countup (agenda (A, B, C) , NA) , write (NA) , write ( ' : incomplete ' ) , 
countup (usedstate (S, SS) ,NB) , write (NB) , write (' ;examined ' ) , nl, 
print_mytrace, told, halt. 

print_mytrace : -nl, 

write ("trace of execution times of successor calculations"), 
nl, mytrace (A, B, C) , printone (A, B, C) , nl, fail . 

print_mytrace . 

printone (A, B, C) ; -write (A) , write ( " " ) , 

write (B) , write ( " "), write (C). 

/* this is the fall through if it cannot do the search */ 

done_searching_f ile (List , Fname) :- tell (Fname) , 

write ('it cannot be done' ), told, halt . 

sortplan ([],[]). 

sortplan ( [X | LI] , L2) : -sortplan (LI, L3) , insert_in_plan (X, L3, L2) . 

insert_in_j3lan (X, [ ] , [X] ) . 

insert_in_plan (X, [Y|L], [X,Y|L]):- cost_in_plan (X, Xcost ) , 
cost_in_plan (Y, Ycost) , Xcost<Ycost. 

insert_in_plan (X, [Y|L1], [Y|L2]) :- cost_in_plan (X, Xcost ) , 
cost_in_plan (Y, Ycost ) , Xcost>=Ycost , 
insert_in_plan (X, LI , L2) . 

cost_in_plan (given (Unit,_, Year,_) , Cost) : - unit (Unit, Priority, _) , 
Cost is Priority*100+Year . 

cost_in__plan (pdo (Unit , Year, _,_), Cost) : - Cost is 1000+Year*10 . 
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/* General Purpose Utilities for the module */ 



prunable (State, D, BestState, Dbest) : - 

check_permutation (State, BestState) , ! . 

check_permutation (Statel, State2) : - 
subset (Statel, State2) , 
subset (State2, Statel) , ! . 

subset ( [ ] , L) . 

subset ( [Xi L] , L2) : -singlemember (X, L2) , subset (L, L2) . 
singlemember (X, [X | L] ) : - ! . 

singlemember (X, [Y|L]) : -singlemember (X, L) . 

f irstmember ( [X | L] , X) . 
addit ( [X] , X) . 

addit ( [X|L] ,X1) ;- addit (L, X2) , XI is X+X2 . 

bigyear (Inyear, Year, Outyear) : - Year >=Inyear, Outyear is Year, 
bigyear (Inyear , Year, Outyear) : - Year <Inyear, Outyear is Inyear. 

concat ( [ ] , L, L) . 

concat ( [X|L1] ,L2, [X|L3] ) : -concat (L1,L2,L3) . 

minyear ( [procurement (Year, Equip, Amount) ] , Year, Amount) . 
minyear ( [procurement (Year, Equip, Amount) | L] , Year, Amount ) ;- 
minyear (L, Y , A) , Year<Y . 

minyear ( [procurement (Year , Equip, Amount ) |L],Y,A) :- 
minyear (L, Y, A) , not (Year<Y) . 

minimum ( [X] ,X) . 

minimum ( [X | L] , X) : -minimum (L, X2) , X<X2 . 
minimum ( [X | L] , X2) : -minimum (L, X2) , not (X<X2) . 

max ( [X] , X) . 

max ( [X|L] , X) :-max(L,X2) , X>X2 . 

max ( [X|L] , X2) : -max (L,X2) , not (X>X2) . 



member (X, [X | L] ) . 

member (X, [Y | L] ) : - member (X, L) , 
deleteone (X, [X|L] , L) . 

deleteone (X, [Y|L] , [Y|Z] ) :- deleteone (X, L, Z) . 
deleteall ([],[]). 

deleteall ( [procurement (X, Y, 0) | L] , L2) : - deleteall (L, L2) . 
deleteall ( [ Y | L] , [ Y | L2 ] ) : -not ( Y=procurement (X, XX, 0) ) , 
deleteall (L,L2) . 
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delete_all_e (Equip, [ ] , [ ] ) . 

del ete_all_e (Equip, [procurement (X, Equip, Y) |L],L2) 

delete_all_e (Ecjuip, L, L2 ) . 

delete_all_e (Equip, [Y|L], [Y|L2]) : -not (Y=procurement (X, Equip, Z) ) , 
delete_all_e (Equip, L, L2 ) . 

appendd (Element, List , [Element | List ] ) . 

duplicate_in_list (List ) 

member (X, List) , deleteone (X, List , Newlist ) , 
member (X, Newli St ) . 

remove_duplicates (X, X) : -not (duplicate_in_list (X) ) . 

remove_duplicates (Listin, [Z|Listout]) ;- 
member (Z, Listin) , 
deleteall_gp (Z, Listin, Tlist) , 
remove_duplicates (Tlist, Listout) . 

deleteall_gp (X, [ ] , [ ] ) . 

deleteall_gp (X, [X|L],L2) : -deleteall_gp (X, L, L2) . 

deleteall_gp (X, [Y|L] , [Y|L2] ) : -not (Y=X) , deleteall_gp (X, L,L2) . 

length_of_list ( [X] , 1) . 

length of list ( [X I L] , I) : -length of list (L, II) , I is Il + l. 
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module planners */ 



/* 



/* this is a protytype plannng program */ 

/* it comes up with a distribution but does not consider the */ 
/* priority of the units or the fact that distribution must */ 
/* modernizse the units as soon as possible */ 

/* this version of the planner program utilizes a delay factor as 
part of */ 

/* the cost and evaluation of the soution. 

*/ 

: -dynamic mytrace/3. 

: -dynamic variable/1. 

mytrace (allocated, 0, 0) . 
variable (1 ) . 

/* this traces how long a successor takes */ 

successor (X, Y) ; -tracer, statistics (runtime, CG) , 

allocated (X, Y) , 

statistics (runtime, Time) , retract (variable (Count) ) , 

Counter is Count+1, asserta (variable (Counter) ) , 
asserta (mytrace (allocated, Counter, Time) ) • 

successor (X, Y) : - not (tracer) , allocated (X, Y) . 

/* allocate for procurement after equipment is available */ 

allocated (XI, XNew2) ;- 

unit (NameU, PriorityU, TypeU) , 

member (procurement (YearP, EquipP , Amount?) ,X1) , 

AmountP>0 , 

unitstatus_look_unit (XI , NameU, YearU, EquipU) , 
forward (EquipU, Equip?) , 
amount (Equip?, TypeU, Required) , 

Amount? >= Required, 

Temp is YearU+3, 
bigyear (Year?, Temp, Giveyear) , 
deleteone (procurement (Year?, Equip?, Amount?) ,X1,X2) , 
Newamount? is Amount? - Required, 

append_if_necessary (X2, X3, Year? , Equip?, Newamount?) , 
appendd (given (NameU, Equip?, Giveyear , Required) ,X3,X4) , 
not (any_wrong_priority (X4) ) , 

member (given (NameU, EquipU, YearU, Oldamount) ,X4) , 

YY is Giveyear +1, 
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give_to_PDO_or_procurement (X4 , NameU, EquipU, YY, Oldamount , X5) , 
modify_delay_if_necessary (X5, X7 , Temp, Giveyear) , 
get_rid_of_extraneous^proc (EquipU, X7 , XNew2) . 



/* when more than one procurement is necessary for the unit 

allocated (XI, XNew2) 

unit (NameU, PriorityU, TypeU) , 

unitstatus_look_unit (XI , NameU, YearU, EquipU) , 
forward (EquipU, EquipP) , 
amount (EquipP, TypeU, Required) , 

bagof (P, member (procurement (_, EquipP , P ) , XI) , Plist ) , 
addit (Plist ,AmountP) , 

AmountP >= Required, 

bagof (Q, proc_f or_equip (EquipP, XI, Q) , Pelist) , 
delete_all_e (EquipP, XI , X2) , 

get_enough (Pelist , Required, Outlist , Tyear) , 

Temp is YearU+3, 

bigyear (Tyear, Temp, Outyear) , 

concat (Outlist, X2,X3) , 

appendd (given (NameU, EquipP, Outyear , Required) ,X3,X4) , 
not (any_wrong_priority (X4) ) , 

member (given (NameU, EquipU, YearU, Oldamount) ,X4) , 

YY is Outyear +1, 

give_to_PDO_or_procurement (X4 , NameU, EquipU, YY, Oldamount , X6) , 
modify_delay_if_necessary (X6, X7 , Temp, Outyear) , 
get_rid_of_0_procurements (X7,X8) , 
get_rid_of_extraneous^roc (EquipU, X8 , XNew2) . 



modify_delay_if_necessary (Oldlist , Oldlist, Year, Year) . 

/* unit given year as soon as the equipment is ready */ 
modi fy_delay_if_necess ary (Oldlist , Newlist, Uni tyear , Giveyear) 
Giveyear > Unityear, 

Diff is Giveyear - Unityear, 

deleteone (delay (Oldamount ) , Oldlist, Templist) , 

Newdiff is Oldamount + Diff, 

appendd (delay (Newdiff) , Templist , Newlist ) . 

modify_delay_if_necessary (Oldlist, Oldlist, Unityear, Giveyear) 
Giveyear<Unityear . 
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get_rid_of_extraneous_j3roc (Equip, X, Y) 

member (procurement (Year , Equip, Amount ) ,X) , 
not ( anybody _at_lower_levels (X, Equip) ) , 
deleteone (procurement (Year, Equip, Amount) ,X,X1) , 
appendd (pdo (procurement, Year, Equip, Amount) ,X1,Y) . 



get_rid_of_extraneous_proc (Equip, X, X) . 
anybody_at_lower_levels (List, Equip) 

forward (X, Equip) , 
unitstatus_look_equip (List , X) . 

anybody_at_lower_levels (List, Equip) 

forward (X, Equip) , 
anybody_at_lower_levels (List,X) . 



append_if_necessary (List , Newlist , YearP , EquipP, NewamountP) ; - 

NewamountP>0 , 

appendd (procurement (YearP , EquipP, NewamountP) , List , Newlist ) . 

append_if_necessary (List, List, YearP, EquipP, NewamountP) ; - 

NewamountP=0 . 

unit status_look_year (List , Year) unit (Name, _,_) , 
unitstatus_look_unit (List , Name, Year, El ) . 

unitstatus_look_unit (List , Name, Year, Equip) : - 

bagof ( [YY, EE] , look_for_given (List , Name, YY, EE) , U) , 
maxequip (U, Year , Equip) . 

look_for_given (List , Name, Year, Equip) : - 

member (given (Name, Equip, Year , Amount ) ,List) . 

unit status_look_equip (List , Equip) unit (Name, _,_) , 
unitstatus_look_unit (List , Name, Year, El) , 
Equip=El . 

maxequip ( [ [YY,EE] ] , YY,EE) . 

maxequip ( [ [ YY, EE] | L] , YY, EE) : -maxequip (L, Y1 , El ) , YY>Y1 . 
maxequip ( [ [ YY, EE] | L] , Y1 , El ) : -maxequip (L, Yl, El) , not ( YY>Y1 ) . 

proc_for_equip (EquipP, XI, procurement (Year, EquipP, Amount) ) :- 
member (procurement (Year , EquipP , Amount ) ,X1) . 
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get_enough (List , Required, Outlist , Year) : - 

Required>0, minyear (List, Tyear, Amount) , 

T is Required - Amount, 

T=0, deleteone (procurement (Tyear, X, Amount) , List, Outlist) , 
Year is Tyear. 

/* when the amount in min procurement is not enough */ 
get_enough (List, Required, Outlist, Year) : - 

Required>0, minyear (List , Tyear , Amount) , 

T is Required - Amount, T>0, 

deleteone (procurement (Tyear, X, Amount) , List, Toutlist ) , 
get_enough (Toutlist, T, Outlist, Year) . 

/* when the amount in the min procurement is more than enough */ 
get_enough (List , Required, Outlist, Year) : - 
Required>0 , 

minyear (List, Year, Amount) , 

T is Required - Amount, 

T<0, 

deleteone (procurement (Year, X, Amount ) , List , Toutlist) , 

Excess is Amount- Required, 

appendd (procurement (Year, X, Excess) , Toutlist, Outlist) . 

/* this rule makes sure units with different priority */ 

/* have different priority equipment */ 

any_wrong_priority (List ) : - unit (N1 , PI ,_) , unit (N2, P2,_) , 
not (N1=N2) , unitstatus_look_unit (List , Nl , Y1 , El) , 
unitstatus_look_unit (List, N2, Y2, E2) , 
priority (El , PEI) , priority (E2, PE2) , 
priority_is_bad(El,E2, Yl, Y2,P1,P2,PE1,PE2) . 

/* these are the two cases of non valid priorities */ 
priority_is_bad (El , E2 , Yl , Y2 , PI , P2 , PEI , PE2 ) : - 
E1=E2, PKP2, Y1>Y2. 

priority_is_bad (El , E2 , Yl , Y2 , P 1 , P2 , PEI , PE2 ) : - 
not(El=E2), PKP2, PE1>PE2. 

give_to_PDO_or_procurement (0_state, Name, Equip, Year, Amount , 
N_state) : - 

check_for_a_unit (0_state, Equip) , 

appendd (procurement (Year, Equip, Amount) , 0_state, N_state) . 

check_for_a_unit (State, Equip) : - forward (0_equip, Equip) , 
unitstatus_look_equip (State, 0_equip) . 

check_for_a_unit (State, Equip) : - forward (0_equip, Equip) , 
check_for_a_unit (State, 0_equip) . 
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/* this works when a unit does not need the equipment you are 
giving */ 

/* and there is a previous generation */ 

give_to_PDO_or_procurement (01d_st ate, Name, Equip, Year , Amount , 
New_State) : - 

forward (01d_equip, Equip) , 

not (unitstatus_look_equip (01d_state, 01d_equip) ) , 
get_rid_of_remaining_procurements (Equip, 01d_state, 01d_statel) , 
appendd (pdo (Name, Year , Equip, Amount ) , 01d_statel, New_State) . 



/* this works when a unit does not need the equipment you are 
giving */ 

give_to_PDO_or_procurement (01d_state, Name, Equip, Year, 

Amount , New_St ate) 

not (forward (01d_equip, Equip) ) , 

get_rid_of_remaining_procurements (Equip, 01d_state, 01d_statel) , 
appendd (pdo (Name, Year, Equip, Amount) , 01d_statel, New_State) . 



get_rid_of_remaining_jprocurements (X, [], []) . 
get_rid_of_remaining_procurements (X, 

[procurement (Year, X, Amount) |L], 

[pdo (procurement, Year, X, Amount) |LL]) 
get_rid_of_remaining_procurements (X,L,LL) . 
get_rid_of_remaining_procurements (X, [Transaction | L] , 
[Transaction | LL] ) : - 

get_rid_of_remaining_j3rocurements (X,L,LL) . 

get_rid_of_0_procurements (01d_state, New_state) 
deleteall (01d_state, New_state) . 

/* the evaluation function calculates the least number of */ 
/* givens needed to get a unit to the highest procurement */ 

eval (List , Z ) : -bagof (U, priorities (List , U) , Prioritylist ) , 

minimum (Prioritylist, Z) • 



priorities (List , Return) unit (Name, _,_) , 

unitstatus_look_unit (List, Name, _, Equip) , 

priority (Equip, Return) . 
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/* the cost function is the number of time periods the plan lasts 
plus */ 

/* The delays incurred in this plan when equipment was available 
and */ 

/* units were not*/ 

cost (List, Z) ; -bagof (U, unitstatus_look_year (List, U) , Givelist) , 

addit (Givelist, ZZ) , member (delay (YY) , List) , 
dfactor(RR), Z is ZZ+YY*RR. 

/* define the goal of the program */ 

goalreached (X) : - get_rid_of_0_procurements (X, New_state) , 

subgoal (New_state) . 

subgoal (New_state) not (member (procurement (_r _r _) ,New_state) ) . 
subgoal (New_st ate) not (allocated (New_state, X) ) . 

/* this is a format for the program */ 

done_searching_f ile (List,Fname) : -any_wrong_priority (List) , 
tell (Fname) , write (' it cannot be done'),nl, 

write ('there is a problem with the units data'),nl, 
write (' equipoment already out of priority sequence' ), nl, 
told, halt . 

done_searching_f ile (List, Fname) : - 
not (tracer) , 
save (coreplanner) , 

write ('core image saved you can ctl c now'),nl, 
appendd (delay (0) , List , Newlist ) , write (Newlist ) , 
search (Newlist, X) , sortplan (X, Y) , 
tell (Fname) , write (Y) , statistics, 

countup (agenda (A, B, C) , NA) , write (NA) , write ( ' : incomplete ' ) , 
countup (usedstate (S, SS) , NB) , write (NB) , write ( ' : examined ' ) , 
told, halt . 

done_searching_f ile (List, Fname) : - 
tracer, 

save (coreplanner) , 

write ('core image saved you can ctl c now'),nl, 
appendd (delay (0) , List , Newlist ) , 
search (Newlist, X) , sortplan (X, Y) , 
tell (Fname) , write ( Y) , statistics , 

countup (agenda (A, B, C) , NA) , write (NA) , write ( ' : incomplete ' ) , 
countup (usedstate (S, SS) , NB) , write (NB) , write ( ' : examined ' ) , nl , 

print_mytrace, 
told, halt . 

print_mytrace : -nl , 

write ("trace of execution times of successor calculations"), 
nl, my trace (A, B, C) , print one (A, B,C),nl,fail. 
print_my trace . 
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printone (A, B, C) : -write (A) , write ( " " ) , 

write (B) , write ( " "), write (C). 

/* this is the fall through if it cannot do it */ 
done_searching_f ile (List,Fname) 

tell (Fname) , write (' it cannot be done' ), told, halt . 
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/* module planner? */ 



/* this is a protytype plannng program */ 

/* it comes up with a distribution but does not consider the */ 
/* priority of the units or the fact that distribution must */ 
/* modernizse the units as soon as possible */ 

/* This version of the planning program uses the delay factors 
but */ 

/* provided information about the number of times a predicate 
*/ 

/* in the successor rule failed and succeeded. */ 

; -dynamic mytrace/3. 

: -dynamic variable/1. 

: -dynamic tposvariable/2 . 

; -dynamic tnegvariable/2 . 
mytrace (allocated, 0, 0) . 
variable (1) . 

/* this traces how long a successor takes */ 

successor (X, Y) ; -tracer, statistics (runtime, CG) , 

allocated (X, Y) , 

statistics (runtime, Time) , retract (variable (Count) ) , 

Counter is Count+1, asserta (variable (Counter) ) , 
asserta (mytrace (allocated, Counter, Time) ) . 



successor (X, Y) ; -bigtrace, traceallocated (X, Y) . 

tcount (P) : -call (P) , incriment_poscall (P) . 
tcount (P) ; -incriment_negcall (P) , fail . 

incriment_negcall (P) : -get_first_pred (P, FIRST) , 

retract_if_there_pos (FIRST, COUNT) , 
COUNTER is COUNT+1, 

asserta (tnegvariable (FIRST, COUNTER) ) , ! . 
incriment_poscall (P) ; -get_first_pred (P , FIRST) , 

retract_if_there_neg (FIRST, COUNT) , 
COUNTER is COUNT+1, 

asserta (tposvariable (FIRST, COUNTER) ) , ! . 
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get_first_pred(P, FIRST) :-P=. . [FIRST] . 
get_first_pred(P, FIRST) :-P=.. [FIRST, _] . 
get_first_pred(P, FIRST) :-P=.. [FIRST, , 
get_first_pred(P, FIRST) :-P=. . [FIRST, . 
get_first_pred(P, FIRST) :-P=.. [FIRST, . 
get_first_pred (P, FIRST) :-P=. • [FIRST, . 
get_first_pred (P, FIRST) :-P=. . [FIRST, . 
get_first_pred (P, FIRST) :-P=. . [FIRST, . 



retract_if_there_pos (FIRST, COUNT) : -tposvariable (FIRST, COUNT) , 

retract (tposvariable (FIRST, COUNT) ) . 
retract_if_there_pos (FIRST, 0) . 

retract_if_there_neg (FIRST, COUNT) : -tnegvariable (FIRST, COUNT) , 

retract (tnegvariable (FIRST, COUNT) ) . 
retract_if_there_neg (FIRST, 0) . 

successor (X, Y) : - not (tracer) , not (bigtrace) , allocated (X, Y) . 

/* allocate for procurement after unit is available */ 

traceallocated (XI , XNew2 ) 

unit (NameU, PriorityU, TypeU) , 

t count (member (procurement ( YearP , EquipP, Amount P) , XI) ) , 
Amount P>0 , 

tcount (unit status_look_unit (XI , NameU, YearU, EquipU) ) , 
forward (EquipU, EquipP) , 

tcount (amount (EquipP, TypeU, Required) ) , 

AmountP >= Required, 

Temp is YearU+3, 

tcount (bigyear (YearP, Temp, Giveyear) ) , 

deleteone (procurement (YearP, EquipP, AmountP) ,X1, X2) , 

NewamountP is AmountP - Required, 

append_if_ne cess ary (X2, X3, YearP, EquipP, NewamountP) , 
appendd (given (NameU, EquipP , Giveyear, Required) , X3 , X4 ) , 
tcount (not (any_wrong_^riority (X4) ) ) , 
member (given (NameU, EquipU, YearU, Oldamount) ,X4) , 

YY is Giveyear +1, 

tcount (give_to_PDO_or_procurement (X4, NameU, 

EquipU, YY, Oldamount , X5) ) , 
modify_delay_if_necessary (X5, X7 , Temp, Giveyear) , 
get_rid_of_extraneous^roc (EquipU, X7 , XNew2) . 

/* when more than one procurement is necessary for the unit */ 
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traceallocated (XI, XNew2) 

unit (NameU, PriorityU, TypeU) , 

tcount (unitstatus_look_unit (XI , NameU, YearU, EquipU) ) , 
forward (EquipU, EquipP) , 
amount (EquipP, TypeU, Required) , 

tcount (bagof (P, member (procurement (_, EquipP, P) ,X1) ,Plist) ) , 
addit (Plist , AmountP) , 

AmountP >= Required, 

tcount (bagof (Q, proc_for_equip (EquipP, XI, Q) ,Pelist) ) , 

delete_all_e (EquipP, XI, X2) , 

get_enough (Pelist, Required, Outlist , Tyear) , 

Temp is YearU+3, 

bigyear (Tyear, Temp, Outyear) , 

concat (Outlist, X2, X3) , 

tcount (appendd (given (NameU, EquipP , 

Outyear , Required) ,X3,X4) ) , 
tcount (not (any_wrong_priority (X4) ) ) , 
member (given (NameU, EquipU, YearU, Oldamount) ,X4) , 

YY is Outyear +1, 

tcount (give_to_PDO_or_procurement (X4 , NameU, EquipU, 

YY, Oldamount , X6) ) , 

modify_delay_if_necessary (X6, X7 , Temp, Outyear) , 
get_rid_of_0_procurements (X7,X8) , 
get_rid_of_extraneous_proc (EquipU, X8, XNew2) . 



allocated (XI, XNew2) 

unit (NameU, PriorityU, TypeU) , 

member (procurement (YearP, EquipP, AmountP) ,X1) , 
AmountP>0 , 

unitstatus_look_unit (XI , NameU, YearU, EquipU) , 
forward (EquipU, EquipP) , 
amount (EquipP, TypeU, Required) , 

AmountP >= Required, 

Temp is YearU+3, 

bigyear (YearP, Temp, Giveyear) , 

deleteone (procurement (YearP, EquipP, AmountP) ,X1,X2) , 
NewamountP is AmountP - Required, 

append_if_necessary (X2, X3 , YearP , EquipP, NewamountP) , 
appendd (given (NameU, EquipP, Giveyear , Required) ,X3,X4) , 
not (any_wrong_priority (X4) ) , 

member (given (NameU, EquipU, YearU, Oldamount ) ,X4) , 

YY is Giveyear +1, 

give_to_PDO_or_procurement (X4 , NameU, EquipU, YY, Oldamount , X5) , 
modify_delay_if_necessary (X5, X7 , Temp, Giveyear) , 
get_rid_of_extraneous_proc (EquipU, X7 , XNew2) . 
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/* when more than one procurement is necessary for the unit */ 



allocated (XI, XNew2) 

unit (NameU, PriorityU, TypeU) , 

unitstatus_look_unit (XI , NameU, YearU, EquipU) , 
forward (EquipU, EquipP) , 
amount (EquipP, TypeU, Required) , 

bagof (P, member (procurement (_, EquipP, P) , XI) , Plist) , 
addit (Plist ,AmountP) , 

AmountP >= Required, 

bagof (Q, proc_for_equip (EquipP, XI , Q) , Pelist ) , 
delete_all_e (EquipP, XI, X2) , 

get_enough (Pelist, Required, Outlist , Tyear) , 

Temp is YearU+3, 

bigyear (Tyear, Temp, Outyear) , 

concat (Outlist, X2, X3) , 

appendd (given (NameU, EquipP, Outyear, Required) ,X3,X4) , 
not (any_wrong_priority (X4) ) , 

member (given (NameU, EquipU, YearU, Oldamount) ,X4) , 

YY is Outyear +1, 

give_to_PDO_or_procurement (X4 , NameU, EquipU, YY, Oldamount, X6) , 
modify_delay_if_necessary (X6, X7 , Temp, Outyear) , 
get_rid_of_0_procurements (X7,X8) , 
get_rid_of_extraneous_proc (EquipU, X8, XNew2) . 



modify_delay_if_necessary (Oldlist , Oldlist , Year, Year) • 

modify_delay_if_necessary (Oldlist , Newlist, Unityear , Giveyear) : - 
Giveyear > Unityear, Diff is Giveyear - Unityear, 
deleteone (delay (Oldamount ) , Oldlist , Templist) , 

Newdiff is Oldamount + Diff, 

appendd (delay (Newdiff) , Templist, Newlist) . 

modify_delay_if_necessary (Oldlist, Oldlist, Unityear, Giveyear) : - 
Giveyear<Unityear . 

get_rid_of_extraneous_proc (Equip, X, Y) ; - 

member (procurement (Year , Equip, Amount ) ,X) , 
not (anybody_at_lower_levels (X, Equip) ) , 
deleteone (procurement (Year, Equip, Amount) ,X,X1) , 
appendd(pdo (procurement, Year, Equip, Amount) ,X1,Y) . 



get_rid_of_extraneous_proc (Equip, X, X) . 
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anybody_at_lower_levels (List , Equip) forward (X, Equip) , 

unit status_look_equip (List , X) . 

anybody _at_lower_levels (List , Equip) forward (X, Equip) , 

anybody_at_lower_levels (List,X) . 

append_if_necessary (List, Newlist, YearP, EquipP, NewamountP) : - 
NewamountP>0, 

appendd (procurement (YearP, EquipP, NewamountP) , List , Newlist) . 

append_if_necessary (List, List, YearP, EquipP, NewamountP) ; - 
NewamountP=0 . 

unitstatus_look_year (List , Year) : - 

unit (Name, _,_) , unitstatus_look_unit (List , Name, Year , El ) 

unitstatus_look_unit (List , Name, Year, Equip) : - 

bagof ( [YY, EE] , look_for_given (List, Name, YY, EE) , U) , 
maxequip (U, Year , Equip) . 

look_for_given (List , Name , Year, Equip) ; - 

member (given (Name, Equip, Year, Amount ) ,List) . 

unitstatus_look_equip (List , Equip) unit (Name, _,_) , 

unitstatus_look_unit (List, Name, Year, El) , 

Equip=El . 

maxequip ( [ [ YY,EE] ] , YY, EE) . 

maxequip ( [ [YY,EE] |L] , YY,EE) : -maxequip (L, Y1 , El ) , YY>Y1. 
maxequip( [ [YY,EE] |L] , Y1,E1) ; -maxequip (L, Y1 , El ) , not (YY>Y1) . 

proc_for_equip (EquipP, XI , procurement (Year, EquipP, Amount ) ) :- 
member (procurement (Year, EquipP, Amount ) ,X1) . 

/* when the amount in the minimum procurement is the correct 
amount */ 

get_enough (List, Required, Outlist , Year) ; - 

Required>0 , minyear (List, Tyear, Amount ) , 

T is Required - Amount, T=0, 

deleteone (procurement (Tyear, X, Amount) , List, Outlist) , 

Year is Tyear . 

/* when the amount in min procurement is not enough */ 
get_enough (List, Required, Outlist, Year) : - 

Required>0, minyear (List, Tyear, Amount) , 

T is Required - Amount, T>0, 

deleteone (procurement (Tyear, X, Amount) , List, Toutlist) , 
get_enough (Toutlist, T, Outlist, Year) . 
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/* when the amount in the min procurement is more than enough */ 
get_enough (List , Required, Outlist , Year) ; - 

~ Rec[uired>0, minyear (List , Year, Amount ) , 

T is Required - Amount, T<0, 

deleteone (procurement (Year, X, Amount ) , List, Toutlist) , 

Excess is Amount- Required, 

appendd (procurement (Year, X, Excess) , Toutlist , Outlist) . 

any_wrong_priority (List) ; - unit (Nl, Pl,_) , unit (N2 , P2, _) , 

~ not (N1=N2) , 

unitstatus_look_unit (List , Nl , Y1 , El ) , 
unitstatus_look_unit (List , N2 , Y2 , E2 ) , 
priority (El , PEI) , priority (E2 , PE2 ) , 
priority_is_bad (E1,E2,Y1,Y2,P1,P2, PEI , PE2) . 

/* these are the two cases of non valid priorities */ 
priority_is_bad(El,E2, Yl, Y2,P1,P2,PE1,PE2) E1=E2, PKP2, Y1>Y2. 



priority_is_bad(El,E2, Yl, Y2,P1,P2,PE1,PE2) not (E1=E2) , 

PKP2, PE1>PE2. 

give_to_PDO_or_procurement (0_state, Name, Equip, Year, 

Amount , N_st ate) 

check_for_a_unit (0_state, Equip) , 

appendd (procurement (Year, Equip, Amount ) , 0_state, N_state) . 

check_for_a_unit (State, Equip) forward (0_equip, Equip) , 
unitstatus_look_equip (State, 0_equip) . 

check_f or_a_unit (State, Equip) forward (0_equip, Equip) , 
check_for_a_unit (State, 0_equ ip) . 

/* this works when a unit does not need the equipment you are 
giving */ 

/* and there is a previous generation */ 

give_to_PDO_or_procurement (01d_state, Name, Equip, Year, 

Amount , New_St ate) 

forward (01d_equip, Equip) , 

not (unitstatus_look_equip (01d_state, 01d_equip) ) , 
get_rid_of_remaining_j3rocurements (Equip, 01d_state, 01d_statel) , 
appendd (pdo (Name, Year, Equip, Amount ) , 01d_statel , New_State) . 
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give_to_PDO_or_procurement (01d_state, Name, Equip, Year, 

Amount , New_State) 

not (forward (01d_equip, Equip) ) , 

get_rid_of_remaining_j5rocurements (Equip, 01d_st ate, 01d_statel) , 

appendd(pdo (Name, Year, Equip, Amount) , 01d_statel , New_State) • 

get_rid_of_remaining__procurements (X, [] , [] ) • 
get_rid_of_remaining_procurements (X, [procurement (Year,X, 

Amount) | L] , 

[pdo (procurement , Year , X, Amount ) |LL]) 
get_rid_of_remaining_procurements (X, L, LL) . 
get_rid_of_remaining_procurements (X, [Transaction | L] , 

[Transaction | LL] ) : - 

get_rid_of_remaining_procurements (X, L, LL) . 

get_rid_of_0_procurements (01d_state, New_state) 
deleteall (01d_state, New_state) . 

/* the evaluation function calculates the least number of */ 

/* givens needed to get a unit to the highest procurement */ 

eval (List , Z) ; -bagof (U, priorities (List , U) , Prioritylist ) , 

minimum (Prioritylist, Z) . 

priorities (List, Return) ; - unit (Name,_,_) , 

unitstatus_look_unit (List , Name, _, Equip) , 
priority (Equip, Return) . 

/* the cost function is the number of time periods the plan lasts 
*/ 

cost (List, Z) : -bagof (U, unitstatus_look_year (List, U) , Givelist) , 

addit (Givelist, ZZ) , member (delay (YY) , List) , 
dfactor (RR) , 

Z is ZZ+YY*RR. 

/* define the goal of the program */ 

goalreached (X) ; - get_rid_of_0_procurements (X, New_state) , 

subgoal (New_state) . 

subgoal (New_state) ; - not (member (procurement (_r _r _) ,New_state) ) . 
subgoal (New_state) not (allocated (New_state, X) ) . 



67 



/* this is a format for the program */ 

done_searching_f ile (List,Fname) : -any_wrong_priority (List) , 
tell (Fname) , write (' it cannot be done'),nl, 

write('there is a problem with the units data'),nl, 
write (' equipoment already out of priority sequence' ), nl, 
told, halt • 

done_searching_f ile (List , Fname) not (tracer) , not (bigtrace) , 
save (coreplanner) , 

write ('core image saved you can ctl c now'),nl, 
appendd (delay (0) , List , Newlist ) , write (Newlist ) , 

search (Newlist , X) , sort plan (X, Y) , tell (Fname) , write (Y) , statistics, 
countup (agenda (A, B, C) , NA) , write (NA) , write ( ' ; incomplete ' ) , 
countup (usedstate (S, SS) ,NB) , write (NB) , write (' :examined ' ) , 
told, halt . 

done_searching_file (List , Fname) tracer, not (bigtrace) , 
save (coreplanner) , 

write ('core image saved you can ctl c now'),nl, 
appendd (delay (0) , List , Newlist) , 
search (Newlist, X) , sortplan (X, Y) , 
tell (Fname) , write (Y) , statistics, 

countup (agenda (A, B, C) , NA) , write (NA) , write ( ' ; incomplete ' ) , 
countup (usedstate (S , SS) , NB) , write (NB) , write ( ' : examined ' ) , nl, 
print_mytrace, told, halt. 

done_searching_f ile (List , Fname) bigtrace, 
save (coreplanner) , 

write ('core image saved you can ctl c now'),nl, 
appendd (delay (0) , List , Newlist) , 

search (Newlist , X) , sortplan (X, Y) , 

tell (Fname) , write (Y) , statistics, 

countup (agenda (A, B, C) , NA) , write (NA) , write ( ' : incomplete ' ) , 
countup (usedstate (S , SS) , NB) , write (NB) , write ( ' ; examined ' ) , nl, 
remove_dups 1 , remove_dups2 , 
listing (tposvariable) , listing (tnegvariable) , 
told, halt . 

remove_dupsl : -tposvariable (X, Y) , bagof (P, tposvariable (X, P) , PLIST) , 
addit (PLIST, AMOUNTP) , abolish_all_x_pos (X) , 
assert (tposvariable (X, AMOUNTP) ) , fail . 

remove_dups 1 . 

remove_dups2 : -tnegvariable (X, Y) , bagof (P, tnegvariable (X, P) , PLIST) , 
addit (PLIST, AMOUNTP) , abolish_all_x_neg (X) , 
assert (tnegvariable (X, AMOUNTP) ) , fail . 

remove_dups2 . 
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abolish_all_x_pos (X) : -retract (tposvariable (X, Y) ) , fail . 
abolish_all_x_pos (X) . 

abolish_all_x_neg (X) : -retract (tnegvariable (X, Y) ) , fail . 
abolish_all_x_neg (X) . 

print_mytrace : -nl , 

write ("trace of execution times of successor calculations"), 
nl, mytrace (A, B, C) ,printone (A, B, C) , nl, fail . 
print_mytrace . 

print_mybigtrace : -print^ost race , pr int_negt race . 
print_postr ace : -nl , 

write ("trace of execution times of successor calculations"), 
nl , tposvariable (B, C) , print two (B, C) , nl, fail . 
print_postrace . 

print_negtrace : -nl , 

write ("trace of execution times of successor calculations"), 
nl , tnegvariable (B, C) , print one (B,C) ,nl,fail. 
print_negtrace . 

printone (A, B, C) : -write (A) , write ( " " ) , write (B) , 

write (" "), write (C). 

printtwo (B, C) : -write (B) , write ( " " ) , write (C) . 

/* this is the fall through if it cannot do it */ 
done_searching_f ile (List , Fname) : - 

tell (Fname) , write (' it cannot be done' ), told, halt . 

sortplan ([],[]). 

sortplan ( [X | LI ] , L2) : -sortplan (LI , L3) , insert_in_plan (X, L3, L2) . 
insert_in_plan (X, [ ] , [X] ) . 

insert_in_j)lan (X, [Y | L] , [X, Y | L] ) : - cost_in_plan (X, Xcost) , 
cost_in_plan (Y, Ycost) , Xcost<Ycost . 
insert_in_plan (X, [Y|L1], [Y|L2]) :- cost_in_plan (X, Xcost) , 
cost_in_plan (Y, Ycost ) , Xcost>=Ycost , 
insert_in^lan (X, LI, L2) . 

cost_in_plan (given (Unit ,_, Year,_) , Cost) : - unit (Unit, Priority, _) , 
Cost is Priority*100+Year . 

cost_in_j3lan (pdo (Unit , Year, _,_), Cost) : - Cost is 1000+Year*10 . 
cost_in_plan (delay (C) , 0) . 
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